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I_J ¡tunamente, uno de los periféricos que más se 
han puesto de moda son los Ratones. Semejantes 
por su forma y constante movimiento en uso a di¬ 
cho animal, facilitan a los nuevos usuarios acer¬ 
carse al mundo de la informática. 

Ahora podemos dejar a un lado al laborioso te¬ 
clado por el que cometíamos mil errores y profe¬ 
sionalizar una nueva herramienta de trabajo que 
por lo general el mayor número de tedas que po¬ 
see es de dos. 

Basados en el software denominado GEM, per¬ 
mite abarcar, abriendo y cerrando ventanas, casi 
todas las posibilidades que antes debíamos de in¬ 
troducir por teclado. El GEM es la base de un 
nuevo sistema operativo que para Commodore se 
distribuye en Europa con el nombre de GEOS. 
¡Esperemos que a España no tarde mucho en 
venir! 

Mientras tanto podemos empezar a practicar 
con cualquiera de los programas de dibujo con¬ 
trolados por Ratón que en el interior de estas pá¬ 
ginas puedes analizar. 

En conclusión podemos dar la bienvenida a es¬ 
tos nuevos periféricos y ojalá dentro de poco exis¬ 
ta más variedad de software, para que puedan 
descansar nuestros angustiados teclados y joys- 
ticks. 

¡Suerte, y a la caza del Ratón! 



Esta revista no mantiene relación de dependencia de ningún 
tipo con respecto de los fabricantes de ordenadores Commo¬ 
dore Business Machines ni de sus representantes. 
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RATONES 


Breve comentario sobre 
las características técnicas 
de los dispositivos de entra¬ 
da de datos, llamados Rato¬ 
nes. Y comentario de tres 
de ellos, conectables al 
Commodore: El MOUSE 
CHEESE, WITTY-MOUSE y 
el Joystick MOUSE. 
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LIBROS 


GRABAR 
EN CASSETTE 


Dossier técnico, que in¬ 
tenta acercarte al proceso 
de almacenamiento de da¬ 
tos en cassette o datasset- 
te y al proceso de lectura y 
escritura en cintas magné¬ 
ticas. 
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TRUCOS 


PROGRAMAS 
DE CONCURSO 


Los seleccionados este 
mes han sido: Estadística 
Loto y Geografía 64. 



GALERIA 
DE SOFTWARE 


Comentario de los juegos: 
Erebus, Dan Daré, Áracan, 
Psi-5, Speed King, 1985, Nin- 
ja, Mad Nurse, Prodigy. 



ALARMA CONTRA 
LOS LADRONES 


Nuestro Commodore pue¬ 
de convertirse en un perfec¬ 
to equipo de seguridad que 



JUEGOS 
DE INGENIO: 

LA RECURSIVIDAD 


de programación que permi¬ 
te solucionar problemas 
que conllevan un rápido ra¬ 
zonamiento lógico. 


detecte cualquier cosa ex¬ 
traña o el paso de un ladrón 
por las puertas o ventanas 
de nuestra casa. 


CARTAS 


Explicamos otra técnica 
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«PC: fenómeno 
indiscutible 
de la economía 
moderna» 

La rápida y espectacular evolución del sec¬ 
tor del microordenador se asienta en su ex¬ 
traordinariamente dinámica relación rendi¬ 
miento/coste. 

La microinformática ofrece al empresario in¬ 
finitas posibilidades de crecimiento. La versa¬ 
tilidad de estos ordenadores y la amplia gama 
de periféricos interconectables existentes los 
convierten en el sistema ideal para automati¬ 
zar globalmente una empresa con la particu¬ 
laridad de que puede ir subiendo hasta con¬ 
vertirse en la red compleja de tratamiento de 
datos y gestión de empresa. 

El crecimiento espectacular de este sector, 
cuyas innumerables posibilidades no son apro¬ 
vechadas en su totalidad, ha impuesto la ne¬ 
cesidad de un tipo de certamen donde el usua¬ 
rio real o potencial pueda analizar la oferta 
de la microinfoimática a la vez que formarse 
en la materia. 

El éxito de este planteamiento, cuyo fin pri¬ 
mordial es incrementar en lo posible el nivel 
de conocimientos de la comunidad de usua¬ 
rios familiarizándola no sólo con la oferta sino 
también con las posibilidades que ésta ofre¬ 
ce, generaría la implantación del FORUM PC 


32 

FORUM 

NACIONAL 

EXPOSICION/CONFERENCIAS 

PC 

IBM Y COMPATIBLES 


en Europa: Francia (París-Lyon), Italia (Mi¬ 
lán) y España (Madrid-Barcelona) celebran 
anualmente sus ediciones y cabe hablar de 
una nueva generación de Salones de Trabajo 
donde el usuario profesional tiene la certeza 
de poder medir la oferta del sector en condi¬ 
ciones particularmente propicias. 

Calendario europeo FORUM PC 
para el primer semestre de 1987: 

París, 3/4/5 febrero 87 («Palais des Con¬ 
gas») 

«4.° FORUM Europeen IBM/PC et com¬ 
patibles» 

10.000 m 2 .30.000 visitantes esperados. 

Milán, 18/19/20 marzo 87 («II Girasole») 
«3.° FORUM Nazionale IBM/PC e com- 
patibili» 

5.200 m 2 . 12.000 visitantes esperados. 


Erbe: «Ser 
original 

te cuesta cada vez 
menos» 

Tras la campaña navideña, las noticias de 
facturación de Erbe durante 1987 han alcan¬ 
zado la increíble cifra de 700.000 unidades 
vendidas. 

Sin embargo, pese a lo importante de la ci¬ 
fra y a los beneficios y cota de mercado al¬ 


canzado, el mismo día 29 en un conocido res¬ 
taurante madrileño y ante toda la prensa in¬ 
formática, Erbe comunicaba su decisión de re¬ 
ducir el precio de todo su software a 875 
pesetas. 

Con este movimiento empresarial, Erbe pre¬ 
tende, según su presidente, Paco Pastor, for¬ 
talecer el mercado de software nacional crean¬ 
do una auténtica industria del software en 
nuestro país, al tiempo que propinar un fuer¬ 
te golpe a la piratería organizada. 

«Ser original te cuesta cada vez menos», 
slogan de la nueva campaña de Erbe comen¬ 
zará el 1 de marzo del presente año.» 



Madrid, 10/11/12 junio 87 («Pabellón de 
Convenciones de la Casa de Campo») 

«3.° FORUM Nacional PC/IBM y com¬ 
patibles» 

2.800 m 2 . 5.000 visitantes esperados. 


Dro Soft, 
nuevos precios 

Miguel Angel Gómez presentó, en una rue¬ 
da de prensa, los nuevos precios que entra¬ 
rán en vigor el 1 de marzo. 

Serie Mastertronic, 499 ptas. unidad. 

Serie Firebird, 499 ptas. unidad. 

Serie Especial, 699 ptas. unidad. 

Serie Electronic Arts (traducidos al castella¬ 
no) entre 875 y 1.500 ptas. 

Esta bajada de precios viene a ser la res¬ 
puesta a la piratería y a los importadores pa¬ 
ralelos de software, que plantean una com¬ 
petencia fuerte, al no gastar dinero en la pre¬ 
sentación del producto y la traducción al cas¬ 
tellano de los programas. 
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VNU absorbe 
Hayden 

VNU, el más importante grupo editorial ho¬ 
landés, que participa con un 50 por ciento en 
el capital social de Publinformática, ha sus¬ 
crito un principio de acuerdo para adquirir la 
norteamericana Hayden Publishing. 

Hayden edita, entre otras publicaciones, 
Electronic Design, Microwaves & RF, Compu¬ 
ter Decisions y Personal Compufing, así como 
la guía-directorio Gold Book. Hayden está con¬ 
siderada como una de las más importantes 
editoriales en los campos de la electrónica y 
la informática, con unos ingresos de 60 mi¬ 
llones de dólares en 1986. La absorción, que 


incluye 290 empleados, será un hecho antes 
de fin de año. 

Así, Hayden pasa a formar parte de VNU 
Business Press Group, ya poseedora de des¬ 
tacados revistas informáticas en el Reino Uni¬ 
do, Holanda y Bélgica, y partícipe en grupos 
editoriales españoles, franceses, australianos 
y asiáticos. Tras la adquisición de Hayden, la 
división de Prensa Especializada del grupo 
VNU contará con unos ingresos anuales de 
150 millones de dólares. 

Electronic Design es una revista quincenal 
especializada en electrónica, con una circula¬ 
ción de 142.000 ejemplares, de los que el 
16 por ciento se venden fuera de Estados Uni¬ 
dos. Es la más importante del mundo en su 
género y está clasificada en séptimo lugar en 
USA, en cuanto a ingresos por publicidad. 


Microwaves & RF, dirigida a ingenieros y je¬ 
fes de proyecto, se encuadra en el mercado 
de las radiocomunicaciones de alta frecuencia, 
tanto en la industria privada como en el área 
militar. Su venta mensual es de 50.000 ejem¬ 
plares y es la publicación líder en su campo. 

El Gold Book, por su parte, es una guía- 
directorio diseñada por y para ingenieros con 
una venta anual de 120.000 ejemplares. 

A su vez, Computer Decisions está dirigida 
a informáticos profesionales y su circulación 
quincenal es de 175.000 ejemplares, lo cual 
le proporciona una posición relevante en un 
sector muy atractivo del mercado. 

Finalmente, Personal Computing tiene 
500.000 ejemplares de tirada, de los que el 
90 por ciento corresponde a suscripciones. 
Esta revista se centra en aplicaciones de ges¬ 
tión para ordenadores personales. 



Para hacer su pedido, rellene este cupón HOY MISMO 
y envíelo a: 

Bravo Murillo, 377 
Tel. 733 79 69 - 28020 MADRID 


con 


yEaya. 


ZJJTjP— 


Ruego me envíen... tapas para la encuadernación de mis ejemplares de 
COMMODORE MAGAZINE, al precio de 650Pts. más gastos de envío. 
El importe lo abonaré 

□ POR CHEQUE □ CONTRA REEMBOLSO □ CON MI TARJETA DE 
CREDITO □ AMERICAN EXPRESS □ VISA □ INTERBANK 


Número de mi tarjeta: I I I I I I I II I 1 I I I I I I II I I I I I I I I 

Fecha de caducidad . Firma 

NOMBRE . 


DIRECCION 


DISPONEMOS DE TAPAS ESPECIALES PARA 

SUS EJEMPLARES DE 

commodore 

_ MjxcuxzJjijel. 


SIN NECESIDAD DE ENCUADERNACION 


CIUDAD ... 
PROVINCIA 
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El «mouse» o ratón se está convirtiendo en uno de los 
periféricos más popdlares y por el software que los 
acompaña en una de las herramientas más fáciles y 
cómodas de manejar. Programas como el GEOS, popular en 
los Apple Macintosh, Atari, Commodore Amiga, han 
conseguido que este simpático periférico sea parte de 
nuestro equipo de trabajo. 



Ratones 


Los ratones son unos disposi¬ 
tivos de entrada de datos en el 
ordenador. 

Físicamente adoptan la forma 
de una pequeña caja con uno o 
varios pulsadores en la parte su¬ 
perior y un cable que le une al or¬ 
denador. En la parte inferior de la 
caja, podemos ver una porción de 
una bola, normalmente de goma, 
que gira libremente. 

Al deslizar el ratón sobre una 
superfice plana, la bola actúa so¬ 
bre dos ejes, perpendiculares en¬ 
tre sí, en cuyos extremos se en¬ 
cuentran los codificadores encar¬ 
gados de determinar la posición 
del ratón. Con la información fa¬ 
cilitada por los codificadores, el 
ordenador puede determinar a su 
vez la posición del cursor sobre la 
pantalla. 

Existen fundamentalmente dos 
tipos de codificadores: los mecá¬ 
nicos y los ópticos. 

Los codificadores mecánicos 


están formados por unos discos, 
solidarios a los ejes que giran, 
que abren y cierran un contaco 
sobre unas escobillas, por lo tan¬ 
to, el desplazamiento del ratón se 
transforma en un tren de pulsos 
eléctricos. 

Por otra parte, los codificado¬ 
res ópticos están formados por 
dos sensores ópticos que se en¬ 
cuentran enfrentados a dos pun¬ 
tos emisores de luz. Entre los 
emisores y los receptores está in¬ 
tercalado el disco, que tiene unas 
pequeñas perforaciones. Al girar 
el disco, la luz alcanza de forma 
intermitente los elementos recep¬ 
tores, obteniéndose un tren de 
pulsos eléctricos. Al disponer de 
dos elementos receptores tam¬ 
bién se determina el sentido de 
giro del disco, en función de que 
el receptor es alcanzado primero 
por la luz, y por lo tanto, en qué 
dirección se desplaza el ratón. 

Existe otro tipo de ratones, en 


los que no hay ninguna parte mó¬ 
vil. Ai deslizarse el ratón por una 
placa que tiene serigrafiadas 
unas líneas casi imperceptibles a 
la vista, unos detectores ópticos, 
situados en la parte inferior del 
ratón reciben la luz reflejada en la 
placa de unos puntos emisores 
de luz infrarroja, que se encuen¬ 
tran junto a los receptores. Las lí¬ 
neas de la placa no reflejan la luz, 
por lo tanto al desplazar el ratón 
la luz incide de manera intermi¬ 
tente en los receptores obtenién¬ 
dose unos pulsos eléctricos. 

Los pulsos eléctricos son trata¬ 
dos en el ratón por un pequeño 
microprocesador integrado que 
es el encargado de facilitar al or¬ 
denador los pares de coordena¬ 
das relativos a la posición del ra¬ 
tón, o bien son enviados directa¬ 
mente a un port del ordenador, el 
cual se encarga mediante softwa¬ 
re de determinar las coordenadas 
de posicionamiento del cursor. 
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EL RATON MOUSE-CHEESE 
DE NEOS 



El ratón que bajo el sugestivo 
nombre de «RATON-QUESO», fa¬ 
brica la casa NEOS, para el 
CBM-64 y el CBM-128 en modo 
64, pertenece al grupo de los ra¬ 
tones mecánicos con codifica¬ 
ción óptica. Su diseño ergonómi- 
co permite que se adapte perfec¬ 
tamente a la palma de la mano. 

El mouse «corretea» perfecta¬ 
mente sobre la mesa de trabajo. 
Los pulsadores se acoplan cómo¬ 
damente bajo los dedos y tienen 
una respuesta rápida y agradable 
al tacto y al oído con un «click» 
muy característico. Una trampilla 
deslizante en la parte inferior del 
ratón permite liberar la bola, faci¬ 
litando así su limpieza. La bola, 
de un peso considerable, está cu¬ 
bierta por una capa de goma de 
color claro, que permite una ma¬ 
yor adherencia a la superficie de 
deslizamiento. 

El conector del ratón, que se 
acopla en el port 2 del joystick, 
es del tipo de plástico moldeado 
y es de una calidad poco usual 
en un periférico. 

Internamente el mouse tiene 
una placa de circuito impreso que 
soporta la parte electrónica y me¬ 
cánica de una pequeña placa 
atornillada sobre ésta con los dos 
pulsadores. 



La parte mecánica de plástico 
fundido contiene los dos ejes me¬ 
tálicos que friccionan con la bola 
y un cilindro con un muelle que 
empuja la bola hacia los ejes fa¬ 
cilitando su contacto. En los ex¬ 
tremos de ambos ejes, encontra¬ 
mos los codificadores ópticos, 
con dos elementos emisores de 
luz y otros dos receptores en 
cada eje. 


La parte electrónica está forma¬ 
da por dos circuitos integrados, 
uno a cada lado de la placa prin¬ 
cipal y algunos componentes dis¬ 
cretos. Uno de los circuitos inte¬ 
grados se trata de un microproce¬ 
sador de 4 bits, según la informa¬ 
ción que acompaña al ratón, por 
lo que podíamos hablar de un ra¬ 
tón «inteligente». El cable está co¬ 
nectado a la placa principal por 
medio de un conector, de nuevo 
poco habitual en periféricos de 
bajo precio. 

Globalmente el ratón ofrece un 
nivel de calidad y de comodidad 
de utilización muy alto. 

El software que acompaña al 
ratón es un programa de diseño 
gráfico, con las habituales carac¬ 
terísticas de este tipo de progra¬ 
mas: líneas, círculos, cuadrados, 
zoom, espejo, copia de porciones 
del dibujo, etc. Los menús de se¬ 
lección aparecen en la parte infe¬ 
rior de la pantalla, tan sólo con 
posicionar el cursor, en forma de 
flecha, sobre la opción elegida y 
pulsando el botón derecho del ra¬ 
tón, hacemos la selección desea¬ 
da. Su utilización es muy sencilla 
y cómoda y permite una gran pre¬ 
cisión a la hora de posicionar el 
cursor, en forma de lapicero, en 
la zona de dibujo. La opción de 
rellenar paint es particularmente 
rápida y permite seleccionar para 
los dibujos unos fondos ya inclui¬ 
dos en el programa con puntos, lí¬ 
neas, cuadros, etc. El precio del 
ratón con software en cassette, 
es de 14.900 ptas., y en disco, de 
15.400 ptas. Nosotros hemos pro¬ 
bado el ratón con cassette y nos 
ha resultado bastante aburrido 
esperar la carga y grabación de 
pantallas. También debemos des¬ 
tacar que no resulta posible utili¬ 
zar el teclado y ratón a la vez, el 
teclado sólo se puede utilizar des¬ 
conectando el ratón. 

En resumen, se trata de un 
buen paquete de soft-hard, que 
abre un nuevo, y esperado, mun¬ 
do a los usuarios de los ordena¬ 
dores Commodore. 
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LOTO 


THE FINAL CARTRIDGE 


SUPER PRO 


r* K' 

/ 


INOISKNSABU 
PARA PEÑAS 

Y JUGADORES “SOnOS" 

¡LA CULMINACION ( 
DE VARIOS MESIS DE 
TRABAJO DE UN EQUIPO 
DE CIENTIFICOS 

Y PROGRAMADORES! 


LOTO super-pro es el programa MAS COM¬ 
PLETO y EFICAZ que se pueda encontrar en la 
actualidad. Es más potente que todos los pro¬ 
gramas que hayamos podido probar con ordena¬ 
dores mucho más caros. 

MATERIAL REQUERIDO 

o I Commodore 64 ó 128. 
o I unidad de discos 1541, 1570 ó 1571. 
o 1 impresora con fricción. 



¡Ahora la fortuna 
(casi) a su alcance! 


CARACTERISTICAS 

o Combinaciones ilimitadas, 
o Posibilidad d: jugar de 7 hasta 49 números, 
o De 1 hasta 6 grupos. 

• 8 tipos de filtros selectivos. __ ^ 

o Utilización de filtros opcional. OP ^ 6 

o Reducciones ilimitadas al 5, 4, 3. * 

o 7 clases de estadísticas (con gráficos). 

• Verificación automática del escrutinio. 

• Actualización automática de estadísticas, 
o Generación de informes. 

• Impresión directa de los boletos (aprox. 
200 hora) con impresoras STAR. RITE- 
MAN.... o cualquier impresora Centronics. 

O Extenso manual de instrucciones, 
o Manejo sencillo. 

Gracias a su sistema de filtros muy elaborados. 
LOTO super-pro multiplica considerablemente 
sus posibilidades de acierto. Es una inversión 
MUY RENTABLE e INDISPENSABLE para 
todas las peñas y los jugadores “serios". 


meros « a oOO 

prec*- ' 6 ° 




CAJA DE 10 li/ 
SIMPLE CARA 
DOBLE DENSIDAD 
CENTRO REFORZADO 


DOBLE CARA x 
DOBLE DENSIDAD 


1 . 750 ' 



EL CARTUCHO INDISPENSABLE, CON 

• TURBO CINTA. _ 

• TURBO DISCO. r—— 

• INTERFACE CENTRONICS. \^Q \ 

• VOLCADOS DE PANTALLAS \ 

• BASIC 4,0 V-——' 

• TECLAS DE FUNCION PROGRAMADAS. 

• 24 K MAS DESDE EL BASIC. 

• COMANDOS DE AYUDA A LA 
PROGRAMACION. 

• MONITOR DE CODIGO MAQUINA. 

• MONITOR DE DISCO. 

• RESET. 

• UTILIZACION DE LA IMPRESORA COMO 
MAQUINA DE ESCRIBIR. 

• GAMF KILLF.R. 

• FREEZER COPIA DE CINTA A CINTAS. 

“ A DISCOS. 

9.900 Ptas. DI ^°;SX: 


COMMODORE 64 C. 
COMMODORE 128. 
UNIDAD DE DISCOS I54IC. 
UNIDAD DE DISCOS 1571 
IMPRESORAS STAR NL 10 
IMPRESORAS RITEMAN SUPER 


EN 


COMPATIBLES PC 

¡¡Llámenos!! 

DINAMITAMOS LOS 
PRECIOS 
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COMPETICION PRO 5000 

Un joystick de calidad excepcional 3.990 Ptas. 

QUICKSHOT 2 PLUS 

Un quickshot que no tiene nada que ver con el que 
conoce... 6 micro-switches le dan una precisión 
asombrosa. Casi al precio de un joystick convencio¬ 
nal- 2.590 Ptas. 

DESCENDER (impresora MPS 801...) 

Nuevo diseño de las letras de su impresora. 
Minúsculas muy mejoradas. Ahora, la p y la 
q “bajan" como tiene que ser. Incorpora ñ, N, 
( • i 3.450 Ptas. 

También 

SUPER GRAPHIX 21.900 Ptas. 

PROTEXT 7.950 Ptas. 

CABLE 40 80 COLUMNAS (128) 2.850 Ptas. 

CABLE CENTRONICS 3.450 Ptas. 

SUMATEST 1.990 Ptas. 

KIT ALINEAMIENTO ROBTEK 2.350 Ptas. 

RATON CHEESE MOUSE (NEOS) 14.900 Ptas. 

RATON CHEESE MOUSE (NEOS) (disco) 15.400 Ptas. 
LAPIZ OPTICO TROJAN CADMASTER 5.800 Ptas. 
LASER 1.0 2.995 Ptas. 
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EL JOYSTICK MOUSE 


De la casa Rushware, probable¬ 
mente alemana, llega hasta noso¬ 
tros este ratón, con muchos pun¬ 
tos en común a su pariente el 
Witty-mouse. 

El aspecto físico es muy simi¬ 
lar al de su homónimo, a no ser 
por la interfase aérea, en forma 
de pequeña caja con conectores 
de diversos tipos y algún interrup¬ 
tor, a la que se conecta el ratón 
y que a su vez se enchufa al or¬ 
denador. Este «comodín electróni¬ 
co», permite utilizar el ratón con 
los ordenadores Atari y Amstrad, 
además de los CBM. 

Los codificadores del ratón, 
movidos mecánicamente por dos 
ejes, son diferentes a los revisa¬ 
dos hasta ahora, ya que la luz no 
atraviesa los discos de codifica¬ 
ción, sino que se refleja en éstos, 
siendo captada la luz reflejada 
por el elemento receptor, que se 
encuentra en la misma cápsula 
que el emisor, no enfrentado a 
éste como en los modelos ante¬ 
riores. La parte mecánica, con 
unos robustos ejes, soportados 
por rodamientos de acero, sobre 
los que fricciona la bola, ocupa la 
mayor parte del «envase» del ra¬ 



tón, quedando apenas espacio 
para la tarjeta que contiene los 
dos- pulsadores y el único circui¬ 
to integrado que compone la par¬ 
te electrónica del ratón. En defini¬ 
tiva, podemos decir que el ratón 
dispone de una sólida construc¬ 
ción mecánica. 

En el interior de la caja interfa¬ 
se, encontramos el resto de la 
parte electrónica: tres circuitos 
integrados, cuatro transistores y 
algún componente pasivo, ade¬ 
más de un conmutador de dos 
posiciones, tres conectores aloja¬ 
dos en la caja y un cable que sale 
al exterior con un cuarto conec- 
tor que va al port de juegos del 
CBM-64. El ratón es eléctricamen¬ 
te compatible con el Witty mou¬ 
se, por lo que pueden controlar el 
mismo software. 

En cuanto al software presen¬ 
tado en cassette, aunque soporta 
el disco, está aderezado por mul¬ 
titud de efectos sonoros, las op¬ 
ciones de dibujo aparecen en dos 
bloques de rectángulos situados 
en la parte superior e inferior de 
la pantalla, mientras que la pale¬ 
ta de colores está duplicada a 
ambos lados de la pantalla y el di- 


0 



bujo se visualiza, continuamente, 
en el centro. Las opciones, se se¬ 
leccionan con facilidad posicio- 
nando el cursor, en forma de fle¬ 
cha, y accionando indistintamen¬ 
te uno de los dos pulsadores. En 
la opción de dibujo libre (draw), 
tenemos líneas, círculos, círculos 
rellenos, rayos, puntos, etc., y la 
divertida opción spray, que gra¬ 
cias al chip SID suena como un 
spray. En la parte de edición, en¬ 
contramos un copy, zoom, borra¬ 
do, etc. 

En conjunto el paquete es muy 
equilibrado, con un software 
aceptable y un ratón de una gran 
robustez mecánica. El precio 
aproximado para adquirir este 
Joystick Mouse es de 13.000 ptas. 
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EL RATON WITTY-MOUSE 
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Con un precio de 9.900 ptas. y 
software en disco para el CBM-64 
y CBM-128 en modo 64, tenemos 
el ratón WITTY-MOUSE. 

El ratón se mueve con comodi¬ 
dad por la mesa de trabajo, gra¬ 
cias a su cuidado diseño. La caja, 
del mismo color que el CBM-128, 
tiene dos pulsadores situados en 
su parte superior de un color gris 
claro. El aspecto general del ra¬ 
tón es totalmente profesional. 

En la base del ratón vemos una 
porción de la bola, de caracterís¬ 
ticas análogas a la del otro ratón 
descrito, que se libera fácilmente 
al girar una tapa circular. 

Interiormente el ratón dispone 


de un sistema mecánico de dos 
ejes, sobre los que actúa la bola, 
y dos pares de codificadores óp¬ 
ticos. 

La parte electrónica está sopor¬ 
tada por tres placas de circuito 
impreso. La situada en la parte 
superior contiene los dos peque¬ 
ños pulsadores de que dispone el 
ratón, bajo ésta encontramos una 
placa de mayor tamaño, donde 
está alojado el codificador y un 
circuito integrado, y unida a ella, 
mediante unos cables, encontra¬ 
mos la tercera placa con varios 
transistores, resistencias, algún 
condensador y tres circuitos in¬ 
tegrados. 

Aunque a primera vista la par¬ 
te electrónica parezca más com¬ 
pleja que la del CHEESE-MOUSE, 
debido al gran número de compo¬ 
nentes, el acabado del circuito 
denota un alto índice de fiabi¬ 
lidad. 

El software suministrado junto 
con el ratón es un programa de 
diseño gráfico. Un gran menú, 
que ocupa toda la pantalla, nos 
permite seleccionar la opción ele¬ 
gida, mediante un cursor que mo¬ 
vemos con el ratón y pulsando la 


barra de espacio pasamos al área 
de dibujo. Tan sólo es necesario 
utilizar el botón izquierdo del ra¬ 
tón y la barra de espacio para ma¬ 
nejar el programa. 

La opción de fichero del menú 
principal es particularmente inte¬ 
resante, ya que nos permite for¬ 
matear un disco, ver su directorio, 
eliminar un programa, etc., y gra¬ 
cias a un turbo, la salvaguardia 
de un dibujo en el disco y su car¬ 
ga posterior, se realiza con gran 
rapidez. 

Para finalizar, sólo me queda 
añadir que el software no es In¬ 
tercambiable entre los dos rato¬ 
nes, y que suministran datos di¬ 
ferentes al ordenador y hemos 
echado en falta unas indicacio¬ 
nes por parte de los fabricantes, 
que nos permitan utilizar los rato¬ 
nes desde nuestros programas, lo 
que sería realmente interesante. 
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Libro: Estadística: Teoría, 
problemas y aplicaciones 
en BASIC. 

Autores: J. Tennant-Smith. 

Editorial: Anaya. 

Páginas: 218 


La importancia de los 
ordenadores y de las técnicas 
de cálculo difícilmente puede 
ser sobrevalorada en nuestros 
días. El poder de los 
ordenadores en la ciencia, 
tecnología, industria y 
comercio es universalmente 
reconocido, pero quedan aún 
enormes potenciales por 
desvelar, a consecuencia de 
la falta de conocimientos 
sobre probabilidad y 
estadística. 

Los especialistas en 
estadística han realizado * 
importantes avances 
mediante el uso y aplicación 
de los ordenadores a las 
técnicas de análisis 
multivariante y el análisis de 
las series cronológicas. Estas 
series habitualmente se 
desarrollan en ordenadores 
con lenguajes de alto nivel, 
como el FORTRAN, PASCAL 
u otros lenguajes 
matemáticos especializados. 
Queda, no obstante, un 
amplio campo para los 
programas de probabilidad y 
estadística en lenguaje 
BASIC, aplicados a problemas 
que son matemáticamente 
más sencillos pero de una 
indudable importancia 
práctica. 

En este libro los autores se 
han propuesto desarrollar una 
labor didáctica muy seria con 
un doble objetivo. Por un 
lado, introducir a los neófitos 
en la programación en el 
lenguaje BASIC, y por otro, 
presentar una enseñanza 
gradual y ordenada sobre la 


estadística, comenzando por 
la estadística descriptiva 
elemental, pasando por la 
teoría elemental de la 
probabilidad, experimentos de 
simulación, variables 
aleatorias, distribución de 
probabilidades, funciones de 
densidad, muestreo y 
estimación, etc., y llegando a 
la regresión y correlación, 
para culminar la obra con 
otras técnicas y modelos 
estadísticos. 

Todo este recorrido por la 
ciencia de la estadística está 
muy bien acompañado por 
ejemplos de programas 
BASIC aplicados a cada 
concepto desarrollado, así 
como un gran número de 
propuestas para variar los 
ejemplos dados y para 
resolver problemas mediante 
programas sencillos en el 
ordenador. 

Aunque los listados que 
aparecen en el dibujo están 
desarrollados en una versión 
de BASIC Microsoft, el primer 
capítulo está dedicado 
íntegramente a explicar las 
peculiaridades de otros 
dialectos BASIC y el camino 
a seguir para que cada lector 
realice la adaptación de los 
ejemplos propuestos al 
BASIC que incorpore su 
microordenador. 

Ahora que, con el proyecto 
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Atenea, parece que los 
ordenadores van a estar cada 
día más presentes en las 
escuelas, libros como éste, 
excelente en su 
planteamiento y su desarrollo, 
irán cobrando cada vez mayor 
importancia, ya que pueden 
resultar excelentes ayudantes, 
tanto para el profesor con 
conocimientos de estadística 
pero neófito en la 
programación BASIC, como 
para el estudiante que ya 
conozca dicho lenguaje y esté 
presto a aprender estadística. 


Sistemas Expertos. 
Introducción al diseño 
y aplicaciones. 

Autor: Tim Hartnell 
Editorial: ANAYA 
Páginas: 252 


Cuando ha llegado el 
momento en que la 
informática inunda los 
hogares y cualquier niño es 
capaz de realizar auténticas 
maravillas utilizando el BASIC 
de su microordenador, el 
futuro parece apuntar hacia 
un nuevo aspecto en el 
desarrollo y utilización de los 
programas en el campo 
«serio» de las aplicaciones 
profesionales: los sistemas 
expertos. 

Un sistema experto es un 
programa de ordenador que 
contiene saber humano sobre 
un tema, manteniendo de tal 
forma que los no expertos 
puedan acceder a él y 
utilizarlo. Aunque los 
sistemas expertos pertenecen 
a los dominios de máxima 
sofisticación en informática, 
sabiendo un poco de BASIC 
y poseyendo un AMSTRAD es 
posible aprender mucho 
acerca de las posibilidades y 
forma de operación de los 
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sistemas inteligentes con la 
ayuda de este libro. 

El libro comienza con una 
introducción general a los 
sistemas expertos, sus 
componentes, y se comentan 
sus usos posibles, dando un 
repaso a ejemplos de 
funcionamiento de algunos 
expertos existentes en el 
mundo y funcionando. 

Dado que un sistema experto 
parte de la información sobre 
un tema acumulada por uno 
o más seres humanos, es 
fundamental realizar un 
análisis del tipo de 
información y las estructuras 
de datos a utilizar. También 
es importante comprender las 
posibles reglas de 
razonamiento a utilizar para 
desarrollar conclusiones 
válidas. A estos temas se 


dedica por entero el capítulo 
tercero. 

Y a partir del cuarto capítulo 
entraremos en la parte 
práctica, comenzando con lo 
más sencillo: los sistemas 
basados en reglas, 
normalmente poco flexibles 
por cuanto, para aplicarlos a 
otros temas distintos de 
aquél para el que fueron 
creados, es necesario 


modificar el propio programa. 
Sería muy largo enumerar 
cada parte del libro. Baste 
decir que se tocan muchos 
temas, como los lenguajes 
HASTE, PROLOG, LISP, y que 
el libro incorpora listados de 
programas experimentales 
que forman por sí mismos 
sistemas expertos a pequeña 
escala, siendo muy útiles 
para completar el aprendizaje 
teórico sobre el libro. Los 
listados se dan para MSX, 
Spectrum, AMSTRAD, 
Commodore 64 y Apple II, 
aumentando así el interés del 
libro. 

En resumen, se trata de un 
libro apasionante para los 
amantes del aprendizaje 
autodidacta y de conseguir 
siempre algo más de su 
microordenador. 
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Quien más y quien menos tiene un cassette para grabar 
sus programas. En realidad, el ordenador y este popular 
aparato van de la mano. Mucho se ha escrito sobre el 
cassette; aun asi, para bastantes usuarios sigue siendo un 
misterio. Visto desde el punto de vista común, es un 
artilugio que graba lo que haga falta, pero ¿cómo? y ¿con 
qué lo hace? son dos preguntas que todavía plantean serias 
dudas a más de uno. 






E L cassette es la forma más 
popular y antigua de almacenar 
información. Este tipo de almace¬ 
namiento convierte la más cara 
de las memorias en el más bara¬ 
to medio de guardar datos. Mien¬ 
tras los grandes ordenadores uti¬ 
lizan armarios especialmente di¬ 
señados para tal operación, con 
cintas de 12 pulgadas, vemos có¬ 
mo los ordenadores personales, 
en este aspecto, se defienden con 
un simple cassette, haciéndonos 
difícil pensar que sin él, este 
avance no hubiera sido posible 
ofrecer una visión completa de las 
posibilidades que tiene este popu¬ 
lar medio de almacenamiento, pa¬ 
ra lo cual analizaremos un casset¬ 
te cualquiera. Completa el artícu¬ 
lo con una visión más o menos fu¬ 
turista de lo que va a ser la forma 
ideal de almacenar información; 
el disco láser, o almacenamiento 
digital. 


GRABANDO EN CASSETTE 

Los principios físicos existen¬ 


tes en el proceso de grabación 
son conocidos por todos; sin du¬ 
da alguna, habremos visto alguna 
que otra vez un imán. Este gene¬ 
ra un campo magnético, que apli¬ 
cado a algunas materias, permi¬ 
ten mantenerse magnetizadas du¬ 
rante cierto tiempo. 

La cinta magnética se hace a 
partir de una cinta de plástico du¬ 
radera, recubierta de partículas de 
hierro. Podemos llegar a pensar 
que la cinta está hecha con mul¬ 
titud de pequeños dominios o zo¬ 
nas de campos magnéticos. En 


una cinta sin magnetizar, estas 
zonas están desorganizadas y sus 
campos magnéticos tienden a 
anular el efecto de una partícula 
con otra, dando como resultado 
una magnetización nula (figura 1). 
Sin embargo, si una porción de la 
cinta es sometida a un campo 
magnético, hará que todas las 
partículas de hierro adopten una 
dirección común, lo que dará a la 
cinta un campo magnético con un 
único sentido (figura 2). El núme¬ 
ro de partículas que se alinean en 
una determinada dirección, de¬ 
pende de la fuerza generadora del 
campo magnético. 


La grabación 
digital sigue siendo 
la opción más fiable 
y más cara del 
mercado. 


En un cassette, la cinta se 
magnetiza al pasar frente a una 
cabeza de lectura/escritura, don¬ 
de un electroimán produce un 
campo magnético en función de 
la corriente que lo atraviesa. El di¬ 
seño de la cabeza es importante 
para el buen funcionamiento del 
cassette. Esta cabeza está forma¬ 
da por un anillo de material mag¬ 
nético, con una pequeña abertu¬ 
ra. El motivo de este diseño tan 
extraño se debe a que la corrien¬ 
te magnética no atraviesa el ani¬ 
llo, salvo por la zona que está 


abierta (figura 3), de manera que 
es posible crear un campo mag¬ 
nético local y alterar una porción 
particular a la vez. En la práctica, 
la apertura del anillo se llena de 
materia no magnética, de mane¬ 
ra que si examina las cabezas lec¬ 
toras/grabadoras de los casset¬ 
tes, encontrará una pequeña línea 
vertical. Obviamente, para produ¬ 
cir un diseño magnético en la cin¬ 
ta que corresponda a la corriente 
generada por la cabeza, la cinta 
tendrá que desplazarse antes de 
que aparezca la corriente. La 
magnitud de movimiento depende 
de la cantidad de cinta afectada 
por la cabeza en el momento de¬ 
terminado y esto, en función de la 
apertura que exista en la cabeza. 
En otras palabras, la frecuencia 
máxima que se puede grabar en 
una cinta depende de: 

a) el tamaño de la apertura del 
anillo de la cabeza de grabación; 
cuanto más pequeña es, mayor la 
frecuencia, y b) la velocidad de 
arrastres de la cinta: cuanto más 
rápida sea ésta, mayor será la fre¬ 
cuencia. 

También, como la mayoría de 
los fabricantes indican, la fre¬ 
cuencia máxima depende, cómo 
no, de la calidad de la cinta. La 
cantidad mínima de alteración de 
la zona del material magnético 
depende del tamaño de esta zo¬ 
na, es decir, del material con que 
se haya fabricado la cinta y su 
método de fabricación esto tam¬ 
bién influye a la hora de obtener 
la frecuencia máxima. Pero en la 
práctica, esta frecuencia depende 
más del tamaño de la apertura en 
la cabeza y de la velocidad de la 
cinta. 

Hasta hace poco, la mayoría de 
los cassettes de los ordenadores 
personales tenían una memoria li¬ 
mitada a 2Mbytes por cinta, debi¬ 
do a que los datos que se graban 
en bloque y por zonas, de forma 
que los datos se grababan con 
grandes espacios entre bloque y 
bloque. Las secciones en blanco 
entre bloques permitían a la cin¬ 
ta arrancar y parar entre los pro- 



Figura 1. Estado desordenado de los dominios magnéticos en una cinta desmagne 
tizada. 
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cesos de lectura y grabación de 
datos. Prácticamente, la cinta 
contenía más espacios en blanco 
que bloques de información gra¬ 
bada en ella. 

Actualmente se ha desarrolla¬ 
do una cinta especial para evitar 
este problema; la cinta sin fin. En 
este caso, la cinta no para y los 
datos se graban sin necesidad de 
que el soporte tenga que parar y/o 


arrancar. Estas cintas permiten 
ampliar hasta cotas insospecha¬ 
das el límite máximo de bytes por 
cinta. En casos excepcionales se 
pueden grabar hasta 60Mbytes. 
Estos casos sólo ocurren en orde¬ 
nadores de alto nivel, donde esta 
operación es posible gracias a la 
capacidad de memoria que po¬ 
seen, además esto se realiza de 
una sola vez, es decir, la informa¬ 
ción se graba de un solo golpe, 
por lo que se eliminan los arran¬ 
ques y paradas de la cinta. 

Es difícil creer que pueda hacer 
falta grabar esta cantidad de in¬ 
formación de una sola pasada y 
sin embargo es la mejor opción a 
la hora de realizar copias de se¬ 
guridad de los Winchester (o dis¬ 
cos duros) con capacidades de 10 
ó 20Nbytes. Además, como ya he¬ 
mos especificado, esta operación 
se realiza de una sola vez. En to¬ 
do caso, a nuestro modesto orde¬ 
nador le bastaría con tener un 
cassette digital, lástima que por 
el momento sigan siendo la op¬ 
ción más cara del mercado. Si al¬ 
gún fabricante comercializase 
una versión barata y fiable de un 
cassette digital, estamos seguros 
que la mayoría de los problemas 
existentes con los aparatos nor¬ 
males estarían resueltos. 


CASSETTES NORMALES 
PARA GRABAR DATOS 

Los cassettes estándar se han 
usado desde las primeras épocas 
de los ordenadores personales. Si 
se deseaba almacenar datos en 
su forma más ordinaria, como 
conjunto de 0 y 1 binarios utilizan¬ 
do un cassette analógico, la for¬ 
ma más cómoda de hacerlo sería 


L os aparatos 
stereos tienen mejor 
aplicación en 
equipos de alta 
fidelidad que en los 
ordenadores 
personales. 


empleando un cierto código de to¬ 
no. Una sencilla manera de hacer¬ 
lo es asignando el número bina¬ 
rio 1 a una frecuencia determina¬ 
da y 0 a otra frecuencia. 

En los comienzos de la era del 
ordenador personal se fijaron 
unos estándar de este tipo en la 
grabación de datos. El estándar 
de Kansas City o CUTS (Compu¬ 
ter Users Tape Standard-Estándar 
para usuarios de cassettes de or¬ 
denador), usaban una señal de 8 
ciclos de 2.400 Hz, para represen¬ 
tar el 1 binario y una señal de 4 
ciclos de 1.200 Hz para represen¬ 
tar el 0 binario. Se eligió esta fre¬ 
cuencia porque la mayoría de los 
ordenadores podían generarla y 
porque uno es el doble del otro, 
lo que facilitaba su control me¬ 
diante el reloj del ordenador; es¬ 


to permitía controlar la velocidad 
de grabación. 

Este estándar planteaba un 
problema; se desperdiciaba mu¬ 
cha cinta. 

Hoy día existen muchas alter¬ 
nativas. Hay ordenadores perso¬ 
nales que graban datos utilizando 
un sonido largo para designar el 
valor binario 1 y otro sonido, bas¬ 
tante más corto, para designar el 
0. Los datos se recuperan midien¬ 
do los tiempos que tarda entre la 
subida y la bajada de la señal. La 
sensibilidad de la velocidad se ob¬ 
tiene definiendo gran cantidad de 
tiempos para los impulsos largos 
y cortos. 

Para reproducir lo grabado el 
proceso es similar, salvo que la 
cinta pasa por otra cabeza que lee 
los datos (caso de los cassettes 
estéreos). En las variantes más 
baratas, la cabeza es única y rea¬ 
liza las funciones de leer y grabar 
los datos. Las variaciones magné¬ 
ticas inducen una pequeña co¬ 
rriente a través de un alambre, 
donde luego se amplían y se co¬ 
rrigen para evitar las distorsiones. 

Hace falta una magnetización 
mínima antes de que el compo¬ 
nente de la cinta inicie su cambio 
de estado, es decir, empiecen a 
alinearse. En otras palabras, pe¬ 
queñas señales no graban y en 
general distorsionan las ondas (fi¬ 
gura 4). La solución es aplicar una 
señal «bias» que aumente la se¬ 
ñal por encima de esta zona 
muerta existente. En cassettes 
más caros, el «bias» suele tomar 
la forma de un tono ultrasónico 
de alta frecuencia (figura 5), mien¬ 
tras que en cassettes más bara¬ 
tos, el «bias» es la corriente DC, 
lo que reduce la relación entre se¬ 
ñal y ruido del sistema. 

A veces, incluso con «bias», 
la distorsión suele ser elevada, 
debido a que la respuesta de la 
frecuencia está más allá de ser 
plana. 

Para compensar esto la mayo¬ 
ría de los cassettes aumentan la 
frecuencia hasta 4.000 Hz duran¬ 
te el proceso de grabación y lue- 



Figura 2. Estado ordenado de los dominios magnéticos en una cinta magnetizada. 
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go, al reproducir lo grabado, esta 
frecuencia disminuye hasta 400 
Hz. El resultado es una respues¬ 
ta de frecuencia entre 20 Hz y 20 
kHz para cassettes caros y entre 
50 Hz y 9 kHz para los más ba¬ 
ratos. 

El problema final que se en¬ 
cuentran los fabricantes de cas¬ 
settes es el proceso de borrar 
cualquier señal que esté en la cin¬ 
ta antes de grabar una nueva se¬ 
ñal. En la mayoría de los siste¬ 
mas, esto se consigue utilizando 
una cabeza con una apertura y 
una corriente DC de borrado o la 
misma señal ultrasónica utilizada 
por el «bias». 

El principio detrás del borrado 


de una cinta, utilizando corriente 
alterna, merece la pena describir, 
ya que se utiliza en borrados ma¬ 
sivos de información y en des¬ 
magnetizadores de cabezas de 
cassettes. 

Si una porción de la cinta se 


mantiene entre campos magnéti¬ 
cos alternativos, sus dominios se 
magnetizarán constantemente en 
la dirección opuesta. Si el campo 
alternativo se reduce paulatina¬ 
mente, entonces cada dominio 
deja de estar afectado en cual¬ 
quier punto del ciclo, por lo que 
el resultado final es una alinea¬ 
ción casi aleatoria de todos los 
dominios de la cinta y un campo 
magnético nulo. En un cassette, 
la lenta reducción del campo 
magnético se obtiene desplazan¬ 
do la cinta lejos de la apertura de 
la cabeza de borrado. 

DATASSETTES 

En tu Datassette los impulsos 
eléctricos son de tres tipos que se 


diferencian sólo por su duración. 

Impulsos de corta duración 
(176 microsegundos). Los llamare¬ 
mos impulsos C. 

Impulsos de duración media 
(256 microsegundos). Serán los 
impulsos M. 



Figura 3. Campo magnético producido por la típica cabeza de un cassette. 




Impulsos de larga duración (336 
microsegundos). A éstos los lla¬ 
maremos impulsos L. 

Con estos tres tipos de impul¬ 
sos se almacena toda la informa¬ 
ción en el Datassette. 

Los dos bits «cero» y «uno» se 
codifican mediante los impulsos 
antes mencionados de la siguien¬ 
te forma. 

Al bit «uno» le corresponde la 
secuencia MMCC, esto es, dos 
impulsos de duración media se¬ 
guidos de dos impulsos de dura¬ 
ción corta. De este modo, la du¬ 
ración total de un bit «uno» es de 
864 microsegundos. Por su parte 
al bit «cero» le corresponde la se¬ 
cuencia de impulsos CCMM, es 
decir, dos impulsos cortos segui¬ 
dos de dos impulsos de duración 
media. Su duración total es la 
misma que la de un bit «uno». 

Pero los bits no se graban to¬ 
dos uno a continuación de otro 
sin ningún orden ni concierto, si¬ 
no que se agrupan de ocho en 
ocho formando bytes. El Datas¬ 
sette tiene que tener alguna for¬ 
ma de identificar dónde comien- 
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L a variedad de 
cintas existente en 
el mercado 
convierte la elección 
del tipo ideal en una 
ardua tarea. 


za el primer bit de cada byte. Aquí 
es donde intervienen los impulsos 
que hemos denominado de larga 
duración o impulsos L. Antes de 
cada bloque de ocho bits, de la 
ristra de impulsos C y M que 
constituyen la combinación de 
ocho unos y ceros, el Datassette 
incluye la secuencia de impulsos 
LLMM como una marca que seña¬ 
la el comienzo del byte. Esta se¬ 
cuencia es un poco más larga que 
la que constituye un bit, ya que su 
duración es de 1.184 microsegun- 
dos. De este modo nos encontra¬ 
mos la información grabada en el 


Datassette en forma de una serie 
de caracteres constituidos cada 
uno de ellos por una marca de 
byte seguida de ocho bits. Pero 
además, después del último bit de 
los ocho que forman el byte, el 
Datassette incluye otro bit deno¬ 
minado bit de parida, que vale a 
modo de comprobande de que no 
ha habido errores, cuyo valor ce¬ 
ro o uno depende de los valores 
de cada uno de los ocho bits. De 
este modo nos encontramos con 
caracteres con una duración total 
de 8.960 microsegundos. 

Si nos fijamos ahora en un ni¬ 
vel superior en la forma de graba¬ 
ción de los datos, veremos cómo 
en realidad los bytes se estructu¬ 
ran en unas unidades superiores 
que se denominan bloques. Un 
bloque está formado por un con¬ 
junto de bytes, tanto de datos co¬ 
mo de control, organizados de la 
siguiente manera. En primer lugar 
nos encontramos con unos cuan¬ 
tos bytes de sincronización. Su 
misión es la de marcar en cierto 
modo el comienzo del bloque per¬ 
mitiendo la sincronización de un 


contador de los impulsos que se 
van a producir. 

Después de la sincronización 
nos encontramos con unos cuan¬ 
tos bytes de datos. En tercer lu¬ 
gar y después de los bytes de da¬ 
tos, viene un byte de control, que 
se obtiene mediante la aplicación 
de operaciones OR exclusivo so¬ 
bre los bytes de datos. Este byte 
de control es una forma de con¬ 
trolar si se ha producido algún 
error en la grabación. 

Después viene algo que cons¬ 
tituye una de las causas de la len¬ 
titud en el funcionamiento del Da¬ 
tassette y se trata nada menos 
que de la petición de todos y ca¬ 
da uno de los bytes de datos. Es¬ 
ta repetición tiene como objeto la 
verificación y detección de erro¬ 
res. El ordenador, cuando lee los 
datos desde el Datassette, los lee 
por duplicado y los compara. Si 
las dos copias no son iguales sig¬ 
nifica que ha habido algún error, 
lo que se refleja en la pantalla a 
través del conocido LOAD 
ERROR. Después de la repetición 
de los datos viene la repetición 
del byte de control. Por último, 
un último byte indica el final del 
bloque. 


GRABACION DIGITAL 

El método descrito anterior¬ 
mente es capaz de grabar secuen¬ 
cias de impulsos analógicos, ta¬ 
les como la voz o la música, pero 
los ordenadores sólo necesitan 
grabar secuencias de bits (1 ó 0). 

Para diseñar una grabadora 
partiremos de los extremos del 
estado magnético. El polo norte 
de todas las partículas apuntará 
hacia la izquierda o hacia la de¬ 
recha, para representar el 1 ó 0 
respectivamente. (Esta forma de 
grabación se denomina de satu¬ 
ración, debido a que no hay tér¬ 
mino medio, o está apuntando ha¬ 
cia una dirección o a otra.) Está 
claro que las técnicas actuales 
permiten leer o escribir una gra¬ 
bación saturada, procesando la 
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MAGNETIZACION 



Figura 4. Sin polarización, el resultado es un grado elevado de distorsión. 



E / cassette es 
sólo el resultado de 
aplicar una serle de 
elementos y 
principios de física 
conjuntamente. 


señal directamente para obtener 
el mejor rendimiento. Como resul¬ 
tado, los cassettes especialmen¬ 
te diseñados para ordenador per¬ 
miten una alta densidad de graba¬ 
ción y son fiables; además, la ve¬ 
locidad de grabación es más al¬ 
ta, facilitando así la transferencia 
de datos. 

ALINEACION DE LAS CABEZAS 

Si el cassette de toda la vida, 
de repente no carga y/o deja de 
grabar, lo primero que habrá que 
hacer es limpiar la cabeza de lec¬ 
tura/escritura. Si ha leído hasta el 
momento todo el artículo, com¬ 
prenderá la importancia que tiene 
la apertura de la cabeza del cas¬ 
sette para magnetizar la cinta. 

Ahora bien, si la cabeza está 
obstruida por materias magnéti¬ 
cas, polvo o suciedad, el campo 
magnético no podrá salir de la zo¬ 
na abierta. En su lugar, se forma¬ 
rá un circuito completo y el cam¬ 
po magnético se quedará encerra¬ 
do dentro de él. Como la cinta es- 


uanto más 
complicado sea el 
aparato, mayor será 
la posibilidad de 
obtener errores en 
la carga o grabación 
de datos. 


Figura 5. Polarización de corriente alterna. Se utiliza para corregir la distorsión. 
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CONCURSO MENSUAL DE COMMODORE MAGAZINE 


Su Programa Para Cualquier 
Sistema Commodore 
Puede Hacerle Ganar 5.ooo Pta& 
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CONCURSO ESTA 
ABIERTO A TODOS 
NUESTROS LECTORES 
Y SU PARTICIPACION 
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GRATUITA. 
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CONCURSO 
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■ LOS CONCURSANTES DEBERAN 
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AL PIE. EL CASSETTE O DISKETTE 
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OBTENIENDO TODOS ELLOS 5.000 PTAS. 


■ LA DECISION SOBRE LA PUBLICACION 
O NO DE UN PROGRAMA CORRESPONDE 
UNICAMENTE AL JURADO NOMBRADO 
AL EFECTO POR “COMMODORE MAGAZINE 
SIENDO SU FALLO INAPELABLE 


■ LOS CRITERIOS DE SELECCION 

SE BASARAN EN LA CREATIVIDAD DEL 

TEMA ELEGIDO Y LA ORIGINALIDAD 

Y/O SENCILLEZ EN EL 

METODO DE PROGRAMACION GLOBAL 
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tá recubierta de material magné¬ 
tico, no ha de sorprendernos que 
la cabeza se obstruya de vez en 
cuando. Las primeras señales de 
una cabeza sucia es una pobre 


nuestro cassette y no con el de 
otros. 

Para entender por qué es im¬ 
portante vamos a considerar un 
cassette con una cabeza cuya 


correctamente en otro cassette. 

Esto se corrige alineando la ca¬ 
beza. La operación, además de 
ser sencilla, nos facilita enorme¬ 
mente el hecho de existir un pe¬ 
queño orificio por donde se intro¬ 
duce un destornillador (figura 6) 
de estrella que nos permitirá rea¬ 
lizar el ajuste. Girando el tornillo 
se irá desplazando la cabeza. Hay 
que andarse con cuidado, ya que 
si giramos demasiado el tornillo, 
podemos acabar sin él, lo que nos 
obligará a llevar el cassette al 
servicio oficial en cuestión para 
que nos lo arreglen. 

Ahora, la única dificultad que 
entraña el ajuste es saber cuán¬ 
do realmente está correcta la ali¬ 
neación de la cabeza. Existen cin¬ 
tas especiales que nos ayudan a 
completar la operación, están gra¬ 
badas a alta frecuencia, con lo 
que podemos saber si verdadera¬ 
mente está o no alineada la cabe- 



Figura 6. Efecto causado por una mala alineación de la cabeza del cassette. 


frecuencia, haciendo la cinta más 
silenciosa. La solución está cla¬ 
ra: limpiar las cabezas. ¿Cómo? 
hay dos formas de limpiarlas, las 
dos muy simples, fáciles de apli¬ 
car y baratas. Estas dos varieda¬ 
des son: aplicando alcohol o con 
un paño especial para esto. 

De las dos opciones, la prime¬ 
ra es la más utilizada y la que me¬ 
jores resultados da a la hora de 
quitar toda la suciedad de la ca¬ 
beza. 

Otro problema con el que nos 
encontramos frecuentemente es 
la desviación de la cabeza lecto¬ 
ra. La mala alineación de ésta 
puede causar multitud de proble¬ 
mas, pero sin embargo, es fácil de 
detectar. Estamos ante este caso 
cuando intentamos cargar una 
cinta comercial y ésta no carga, 
es decir, sólo carga las cintas que 
nosotros hemos grabado con 


apertura está a 90 grados del bor¬ 
de de la cinta. Ei resultado es una 
magnetización irregular en todas 
las zonas por las que esa cabeza 
ha pasado (figura 6). 

Ahora veamos lo que ocurre 
cuando un cassette lee datos uti¬ 
lizando una cabeza cuya apertu¬ 
ra no esté a 90 grados del borde 
de la cinta. Podemos comprobar 
que la apertura pasa por un nú¬ 
mero de zonas magnéticas a la 
vez y por tanto se verá influencia¬ 
da por todas ellas. El resultado es 
como si se utilizara una cabeza 
con una apertura más grande, ob¬ 
teniendo una baja respuesta en la 
frecuencia que impide una correc¬ 
ta lectura. 

Claro está que si la cabeza no 
está alineada correctamente, só¬ 
lo podrá leer aquellas cintas que 
se hayan grabado en ella, pero no 
las cintas que se hayan grabado 
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za. Para el ordenador, el sonido de 
la cinta le es indiferente, mientras 
que a nosotros nos indica cuán¬ 
do se ha finalizado la operación. 
Caso de no poseer este tipo de 
cinta, se puede realizar la misma 
operación con una cinta musical, 
siempre y cuando ésta contenga 
frecuencias muy altas. El proce¬ 
so es sencillo, primero pondre- 


3i la cabeza no 
está alineada 
correctamente sólo 
podrá leer aquellas 
cintas que se hayan 
grabado con ella. 


mos la cinta en cuestión y a con¬ 
tinuación giraremos hasta que la 
música suene lo más nítidamen¬ 
te posible. 

Si tiene problemas al leer las 
cintas comerciales, entonces me¬ 
recerá la pena alinear la cabeza 
del cassette hasta obtener el to¬ 
no más claro posible. Por último, 
si ha tenido que alterar la alinea¬ 
ción de la cabeza, no olvide colo¬ 
carla en su posición primitiva. 

Todavía existen problemas que 
se centran en la cabeza del dispo¬ 
sitivo. Por ejemplo, cuando ésta 
se magnetiza. Los demagnetiza¬ 
dores se venden para solucionar 
este problema, pero esto no influ¬ 
ye en el correcto funcionamiento 
del cassette con el ordenador. El 
desgaste de la cabeza es harina 
de otro costal. La mayoría de ellas 
están hechas de material relativa¬ 
mente blando, lo que permite un 


desgaste paulatino de ella. Estas 
se pueden cambiar, puesto que 
casi todos los modelos usan la 
misma montura, pero en casset¬ 
tes baratos esto no merece la pe¬ 
na. 

¿QUE TIPO DE CINTA UTILIZAR? 

La mayoría de las cintas de 
audio graban bastante bien los 
datos y programas de los ordena¬ 
dores. No es necesario comprar¬ 
se cintas con una calidad supe¬ 
rior, ésas conviene dejarlas para 
el equipo de alta fidelidad. No uti¬ 
lizar C-90 o C-120; son demasiado 
finas para aguantar los frecuen¬ 
tes tirones a los que son someti¬ 
das durante su vida. 

Encontrar la cinta ideal para el 
ordenador es similar a encontrar 
la fidelidad; en nuestra modesta 
opinión es casi más importante el 
primer caso que el segundo, pero 
una vez que la tengamos no expo¬ 
nerla ni a los rayos del sol ni a los 
campos magnéticos. Si se guar¬ 
dan durante mucho tiempo, rebo¬ 
binarlas hasta el final y repetir es¬ 
ta operación con alguna frecuen¬ 
cia, la razón es que cuando una 
porción de la cinta está magneti¬ 
zada y en contacto con otra par¬ 
te también magnetizada, si se de¬ 
ja mucho tiempo sin tocar, ambos 
campos se verán afectados. Si se 
rebobina se altera la posición de 
la cinta, lo que minimiza este pro¬ 
blema. 


RESUMIENDO 

El cassette es sólo el resultado 
de aplicar una serie de elementos 
y principios de física conjunta¬ 
mente. La electricidad y el mag¬ 
netismo producido por ella son el 
esqueleto de todo soporte de gra¬ 
bación de información. Esta pue¬ 
de estar en las formas más diver¬ 
sas: cintas, discos, memorias de 
burbujas, etc., pero en suma, to¬ 
dos se basan en estas caracterís¬ 
ticas. 
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Vendo impresora SEIKOSA GP-100 VC 
especial para Commodore 64, 50 cps. 
manuales originales y traducción caste¬ 
llano. Perfecto estado. 30.000 ptas. Diri¬ 
girse a: Rafael Borrell Viñas. Pza. Ma- 
nent, 2 A-1. Sta. Coloma de Gramanet 
(Barcelona). 

• 

O 

Deseo intercambiar todo tipo de pro¬ 
gramas para C-64 en disco. Poseo más 
de 1.000. Interesados enviar lista a: José 
Antonio Guilabert. C/ José García 
Fernández, 28-3.°-P1. 03205 Elche (Ali¬ 
cante). Tel.: (965) 46 73 77. 

• 

c 

Se hace todo tipo de trabajos con im¬ 
presora, como listados (desde cassette 
o disco), etiquetas para «mailing (con un 
programa destinado a ello), etc. Todo 
con una impresora MPS-801, mejorada 
con un chip especial. A toda España, 
muy barato. Dirigirse a Gerardo Rodrí¬ 
guez Aliaga. Viviendas Obras Públicas, 
13. 29740 Torre del Mar (Málaga). Con¬ 
testación asegurada. 

• 

Cr 

Vendo Commodore SX 64 (el portátil), 
que incluye unidad de disco 1541 y mo¬ 
nitor color. Además doy revistas y 200 
programas de gestión (Base de datos, 
hojas de cálculo, procesadores de tex¬ 
to, varias utilidades) y juegos. Por 
120.000 ptas. Llamar noches (93) 431 90 
03 a: José Tordera Alba. C/ Llobregat, 
27, 1.°-1.°. L’Hospitalet. 08904 Barce¬ 
lona. 



Vendo ordenador C-64 nuevo (un mes 
de uso), más 2 libros de instrucciones, 
más amplia gama de juegos y utilidades 
de la categoría de: Rambo, Comando,, 
Summer Games II, Hypersports, A view 
to a Kill, The way of exploding fist, 
Ghostbusters, Logo, Kung Fu Master, 
etc., por sólo 40.000 ptas. Adjunto uni¬ 
dad de cassette. Interesados preguntar 
por: Aleix Oriol. C/ Vizcaya, 356, 7.° J. 
08027 Barcelona. Tel.: (93) 349 06 28. 



Vendo C-64 con botón reset, datasse- 
te , cartucho HesMon, Joystick, Guía, 
manuales, cuatro libros Data-Becker y 
varios juegos. Todo en perfecto estado, 
por 65.000. Escribir dando teléfono a: Ig¬ 
nacio Bellota González. C/ Niágara, 4, 
9.° D. 21005 Huelva. 
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Intercambio software, tengo ultimísi- 
mas novedades pero quiero más, con 
vuestra ayuda claro. Escribidme, no os 
arrepentiréis. Urge comprar unidad de 
disco. Urge vender videopac Philips 
G-7400 más cartuchos, regalo 300 pro¬ 
gramas de ultimísima novedad para 
CBM-64, por sólo 10.000 ptas. (el video¬ 
pac es convertible en ordenador de 16k, 
ideal para los que empiezan a buen pre¬ 
cio). Mi dirección es: Francisco Javier 
Bernal Malillos. C/ Echegaray, 1. Canta- 
lejo. Segovia. Tel.: (911) 52 04 04. 

C 

Intercambio programas en cinta para 
CBM-64. Poseo últimas novedades. Inte¬ 
resados mandar lista a: Andrés Fernán¬ 
dez Morlanes. C/ General Yagüe, 25. Al¬ 
calá de Guadaira. 41500 Sevilla. 

• 

C 

Vendo Vic-20 + manual del usuario 
4- transformador + adaptador TV + 
Lote de revistas + programas de jue¬ 
gos. Todo por 13.000 ptas. Interesados 
escribir a: Ricardo García Vía. C/ Urgel, 
257, 6.°-1. a . 08036 Barcelona. Teh: (93) 
321 06 89. 

• 

C 

Cambio o vendo programas de todo 
tipo para C-64 a 500 ptas. cada uno, in¬ 
cluidos los gastos de envío. Poseo muy 
buenos títulos como: Ghosts’n Goblins, 
Uridium, V, Internacional Karate, Yie Ar 
Kung-Fu, Sam reciter, Kawasaki R. R., 
Basic Lightning, etc. todos ellos están 
en turbo y así me gustaría que estuvie¬ 
sen los que me ofrezcáis. Los cambia¬ 
ría en lotes a convenir por cualquier 
cosa que me ofrezcáis ( ¡oysticks , inter¬ 
faces, etc.), incluso los daría todos a 
cambio de un monitor, una impresora o 
una unidad de discos. Mi dirección es: 
Juan Carlos Pérez Redondo. C/ Canya- 
meres, 14. Entlo. 2. 08016 Barcelona. 
Tel.: (93) 350 52 71. 

O 

Vendo C-64 + datassette C2N + joys- 
tick microinterruptores + cintas de jue¬ 
gos + varios libros sobre C-64. Todo en 
perfecto estado. Poco usado. Todo por 
35.000 ptas. Interesados contactar con 
Domingo Glez. Apto. 456. 38400 Pto. Cruz. 
Tenerife. Tel.: (922) 38 34 40. 


Club Usuaris Commodore-Tarragona, 
centro homologado por la Generalitat de 
Catalunya; nuestras actividades están dis¬ 
tribuidas en distintas secciones: Bibliote¬ 
ca, programoteca, asesoramiento, etc. 
Dos años al servicio de nuestros socios. 
Para información: Club Usuaris Commo¬ 
dore. Apartado de correos 176, Tarragona. 
O también c/ Fortuny, 4, 2.° 2. a . Tarrago¬ 
na. Además cursos de informática. 


C 

Vendo impresora RITEMAN C + NLQ3, 
precio a convenir, del 11-2-86. Llamar a 
Carlos Blanco, tel.: (93) 249 41 47. C/ Car¬ 
denal Reig, 10. 08028 Barcelona. 


C 

Vendo CBM-64 con datassette, precio 
barato y a convenir. Llamar a Carlos Blan¬ 
co a partir de las 21 h. Tel.: (93) 249 41 47. 
C/ Cardenal Reig, 10. 08028 Barcelona. 

• 

C 


Vendo Commodore 8032, unidad de dis¬ 
cos 8050 con una capacidad de un Me- 
gabyte, interface para impresora Centro¬ 
nics, programas Wordcraft, Visicalc, Mas¬ 
ter y un montón de juegos, utilidades y 
aplicaciones, todo por 100.000 ptas. Lla¬ 
mar a partir de las 8 de la tarde a: Juan 
Casas Campabadal. C/ Badal, 100, esc. B 
3.° 1. a . 08014 Barcelona. Tel.: (93) 422 
68 55: 


O 

Deseo intercambiar programas y juegos 
de todo tipo. Escribir a: Roberto Pérez. 
C/ San Martin, 3. Entlo. derecha. Santan¬ 
der (Cantabria). Tel.: (942) 22 09 83. 

• 

C 

Vendo C-64 con unidad de disco, impre¬ 
sora, datassette y joystick. Además doy 
muchos programas de juegos en casset¬ 
te y disco. Las últimas novedades. Tam¬ 
bién programas de utilidad en disco como 
Superbase 64, fichero gráfico Sandra-64. 
Contabilidad 64, Easy Script, compilado¬ 
res, monitores código máquina, lenguajes 
logo, pascal, etc. Todo por 130.000 ptas. 
Llamar al (93) 237 63 54 y preguntar por 
Paúl. Por las tardes. 














Me interesa vender lo siguiente: colec¬ 
ción de revistas Ordenador Popular (n.° 1 
al 36), Commodore World y Magazine (n.° 
1 al 26). Todo por 10.000 + gastos. 

Enciclopedias informática: E. Práctica 
de Informática-lngelek (4 vol., 52 fas.) 6.000 
+ gastos; mi computer-Delta (8 vol. 96 
fas.) 10.000 + gastos; Basic + Basic Ad- 
vanced-Forum (8 vol., 112 fas.) 12.000 + 
gastos. Todas por 25.000 + gastos; ideal 
para principiantes. Miguel Peláez. C/ Me- 
jía Lequerica, 22, 5.° C. 08028 Barcelona. 
Tel. (93) 330 58 84. 

• 

O 

Vendo cinta con 20 programas, entre 
ellos: Simon’s Basic II Marness, Koala 
Pad, Bigues SW y más. Precio a convenir. 
Llamar a Oscar. Tel. (983) 86 72 18. 

C 

¡Hola! Soy un chico que posee un CBM 
64 y por cambio de equipo desearía ven¬ 
der un lote de juegos, juntos o por sepa¬ 
rado. Todos son originales y funcionan a 
la perfección. Los juegos que se venden 


son los siguientes: Kung-Fu Master, Bru- 
ce-Lee, Entombed, Decathlon, Skyfox, 
Zaxxon, Space Shutle, Pitsotp II, Mach 
Point y 50 juegos más igual de buenos. Se 
venden por 7.000 pesetas negociables. 
Llamar al tel.: (93) 318 44 61 de Barcelona. 
Preguntar por Vicente. Los que deseen los 
juegos sueltos se venden a 1.000 ptas. 
cada uno. 


c 

Intercambio programas para C-64. Ten¬ 
go últimas novedades. Mandar lista. Tam¬ 
bién los cambio por hardware. Interesados 
contactar con: Marcos Miguel Huerga Mu¬ 
ñoz. C/ Candelaria Ruiz del Arbol, 55 4.° P. 
3.° A. 49003 Zamora. Tel.: (988) 52 88 64. 

• 

c 

Vendo ordenador C-64 + datassette 
C2N + joystick + juegos (Rambo, 
Gremmlins, Panorama para matar) + uti¬ 
lidades (agenda) -i- funda + revista. Todo 
por 58.000, su valor real es de 72.000 ptas. 
Contactar con: Pablo Soto Sobrino. C/ 
Guipúzcoa, 13, 2.° I. 20240 Ordicia. Gui¬ 
púzcoa. 


Vendo ordenador Vic-20 y unidad de 
cassette nuevos. Regalo revistas y cintas. 
Interesados dirigirse a: Félix Tajuelo. Islas 
Cíes, 13. 28035 Madrid. Tel.: (91) 739 33 68. 
Precio a convenir. 

• 

C 

Me interesaría comprar grabadora (da¬ 
tassette) o interface para Commodore 64 
(2. a mano). Interesados escribir a: Santi 
Bertrán. C/ Marinel-lo Bosch, 13, 4.° 1. a . 
08222 Terrassa. Barcelona. 


c 

Vendo los siguientes programas origina¬ 
les: Superbase 128 por 15.000. Cale Result 
(cartucho) por 8.000. Easy Script por 5.000. 
Contabilidad para C-64 por 3.000. Interfa- 
ce Supergraphix (cartucho + disco utili¬ 
dades) por 15.000. CBM-64 Consejos y Tru¬ 
cos (libro + disco) por 3.000. Compilador 
para C-64 por 3.000. Kawasaki Synthesizer 
por 3.000. Interface Universal Star para im¬ 
presora en Eprom por 6.000. The Final Car- 
tridge II, por 6.000. Contactar con: Luis E. 
Gutiérrez Behemerid. C/ Labradores, 30. 
6°B. Tel.: (983) 20 23 64. 47004 Valladolid. 


r 


L 


ANUNCIOS GRATUITOS 

Todos los anuncios (compras, ventas, cambios o comunicaciones de clubs de usuarios, etc.) que van en esta sección, 
deben tener un máximo de cuarenta palabras. Con el fin de facilitar la transcripción de los anuncios hemos recuadrado 
cuarenta espacios para que en cada uno vaya una palabra. Después, recortar y mandar a: 

commodore anuncios gratuitos 

M/irjrJ7Jr)P c/ Bravo Murillo, 377, 5 ° A 

2802Q MADR|D 
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Ver y actualizar 
el reloj 

de tu Commodore 

este sencillo truco, pue¬ 
des aprender a utilizar el reloj 
interno de tu Commodore, el 
cual puedes leer en la variable 
Tl$, con el formato HHMMSS 
(horas, minutos y segundos). 

En muchos programas puede 
resultar interesante tener un re¬ 
loj en pantalla o tener la posibi¬ 
lidad de poder controlar tiem¬ 
pos cronometrados. 

La subrutina 1000 se encarga 
de colocar la hora en la esqui¬ 


lo PRINT’TT 

20 INF'UT"VER D ACTUALIZAR LA HORA <V/A)";A* 

30 IF A$="V" THEN 60 

40 INF'UT "NUEVA HORA (HHMMSS) " ; A$ 

50 TI*=A* 

60 F'RINT'TT 
70 GOSUB 1000 
SO END 

999 REM *** PINTA HORA *** 

1000 FOR T=1 TO 6 

1010 F'OKE 1057+T , ASC <MID$ (TI$,T,1) ) 

1020 F'OKE 55329+T , 1 : IMEXT 

1030 RETURN 

READV. 

na superior derecha y en color Este truco realmente es inte- 
blanco, lo cual puedes modifi- resante si lo insertas en el menú 
car a tu gusto. de alguno de tus programas. 


Cambia el número 

de periférico 

de tu unidad de disco 

Uno de los trucos que hace 
tiempo nos llegó a la redacción 


nos planteaba la posibilidad de 
cambiar el número que identifi¬ 
ca tu unidad de disco, habitual¬ 
mente el 8, por uno comprendi¬ 
do en un rango entre 9 y 15. 

Este truco hace un reset del 
identificador del disco colocan¬ 


do tú el identificador deseado. 
Para restaurar el identificador 
inicial, puedes hacerlo, apagan¬ 
do la unidad de disco o hacien¬ 
do un reset al ordenador. Esto 
es posible por ser un cambio 
por software y no por hardware. 


100 INF'UT"NUMERO IDENTIFICADOR ANTIGUO"; IA 

110 IF IA<8 OR IA>15 THEN 100 

150 INF'UT "NUMERO IDENTIFICADOR NUEVO"; IN 

160 IF INC8 OR IN>15 THEN 150 

200 OF'EN 15,1 A, 15 

210 A*=CHRf(IA+32) : B*=CHR* (IA+64) 

220 READ A : IF A=0 THEN F'RINT"DISCO NO RECONOCIDO!" ; GOTO 310 
230 PRINT# 15,"M-R"CHR$ (A) CHR# (O) : GET# 15 , X* ; IF XíOAí THEN 220 

240 F'RINT#15 , "M-R"CHRT (A+l) CHR$ (O) :GET#15,X* : IF X4K >B* THEN 220 

300 PRINT#15,"M-W"CHRí(A)CHRÍ(O)CHR*(2)CHR*(IA+32)GURÍ(IA+64) 

310 GLOSE 15 

400 DATA 12,50,119,0 


READY. 
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Geografía 64 



1150-1180 

1200-1240 

1300-1340 

1350-1390 

1400-1440 


son para los cinco 
continentes y la sexta 
para finalizar. 

Europa Aquí se 


ELste programa educativo dise¬ 
ñado para el Commodore 64 está 
basado en el estudio de los paí¬ 
ses y capitales del mundo. Aquí, 
el ordenador actúa como profe¬ 
sor, el cual pregunta, de forma 
salteada, las capitales de los es¬ 
tados del continente elegido. 

Pensamos que este programa, 
aunque sea largo y engorroso, so¬ 
bre todo por la gran cantidad de 
DATAs, merece la pena teclearlo; 
su autor, Rafael Tenor Palo, se 
propuso hacer este programa por 
el simple hecho de haber suspen¬ 
dido Geografía de 2.° de BUP y 
de forma satisfactoria nos garan¬ 
tiza su éxito. 

Esperemos que este programa 
os ayude también a vosotros a 
mejorar vuestra calificación o 
cuando menos a no suspender. 

2-8 Rem’s de presenta¬ 
ción. 

9 Poner a 0 todas las va¬ 
riables y dimensionar 
dos variables alfanu- 
méricas de 173 ele¬ 
mentos cada una. 

10-285 DATA’s que contienen 
los estados y las capi¬ 
tales de los cinco con¬ 
tinentes. 

1000-1110 Menú de opciones. 

Contiene 6, las cinco 
primeras opciones 

2 REM *********■*■**■#•■*■**•#*•*****■#*•#*■**•**** 

3 REM * * 

4 REM * GEOGRAFIA 64 : CAPITALES * 

5 REM * * 

6 REM *<C) BY R.T.P PARA COMM.MAGAZINE* 

7 REM * * 

8 REM ♦■a-#*******-****-#****************** 

9 CLR: F’RINT" Cl" : DIM A* (172) , B$ (172) 

10 DATA ESPAÑA,MADRID,URSS,MOSCU,FRANCIA,PARIS,SUECIA,ESTOCOLMO,NORUEGA,OSLO 

20 DATA ALEMANIA FED.(OCC.),BONN,ALEMANIA DEM.(OR.),BERLIN 

25 DATA FINLANDIA,HELSINKI,POLONIA,VARSQVIA,ITALIA,ROMA,YUGOSLAVIA,BELGRADO 

30 DATAGRAN BRETAÑA,LONDRES,RUMANIA,BUCAREST,GRECIA,ATENAS,CHECOSLOVAQUIA,PRAGA 

35 DATA BULGARIA,SOFIA,ISLANDIA,REIKIAVIK,HUNGRIA,BUDAPEST,PORTUGAL,LISBOA 


Asia 
Africa 
América 
Oceanía 


hace la 
presenta¬ 
ción de 
cada conti¬ 
nente y la 
fórmula 
que deter¬ 
mina qué 
datos 
correspon¬ 
den a cada 
uno, esto 
mediante 


la variable 
Q 

5000-5230 Rutina de lectura de 
datos, presenta men¬ 
sajes de aciertos o fa¬ 
llos y un mensaje de 
abandono <*<. A esta 
rutina acceden los 5 
continentes especifi¬ 
cados anteriormente. 

6000-6140 Rutina para aciertos, 
fallos, y un submenú 
de dos opciones: 1. a 
volver al menú princi¬ 
pal (línea 1000) y la 
2.. a es la de finalizar 
(6140) 
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40 DATA AUSTRIA,VIENA,IRLANDA,DUBLIN,DINAMARCA,COPENHAGUE,SUIZA,BERNA 
45 DAT A HOLANDA,AMSTERDAM,BELGICA,BRUSELAS,ALEANIA,TIRANA,LUXEMBURGO,LUXEMBURGO 
50 DATA ANDORRA,ANDORRA LA VIEJA,MALTA,LA VALETTA,LIECHTENSTEIN,VADUZ 
55 DATA MONACO,MONACO,SAN MARINO,SAN MARINO 
60 : 

65 DATA URSS(ASIATICA),MOSCU,CHINA,PEKIN,INDIA,NUEVA DELHI,ARAB.SAUDITA,RIYAD 

70 DATA INDONESIA,YAKARTA,IRAN,TEHERAN,MONGOLIA,ULAN BATOR,PAKISTAN,ISLAMABAD 

80 DATA TURDUIA,ANKARA,BIRMANIA,RANGUN,AFGANISTAN,KABUL,TAILAND IA,BANGKOK 

85 DATA IRAK(MESOPOTAMIA),BAGDAD,JAPON,TOKIO,VIETNAM,HANOI,MALAYSIA,KUALA LUMPUR 

90 DATA FILIPINAS,MANILA,LAOS,VIENTIANE,COREA DEL NORTE,PYONGYANG 

95 DATA COREA DEL SUR,SEUL,OMAN,MASCATE,YEMEN,SANA,YEMEN DEL SUR,AL SHAAB 

100 DATA SIRIA,DAMASCO,CAMBOYA O CAMPUCHEA,PHNOM PENH,BANGLADESH,DACCA 

110 DATA NEPAL,KATAMANDU,JORDANIA,AMMAN,EMIRAT.ARAB.UNIDOS,ABU DHABI 

115 DATA SRI LANKA,COLOMBO,BHUTAN,ZIMBU Y PUNAJA,TAIWAN(FORMOSA) ,TAIREI 

120 DATA ISRAEL,JERUSALEN,KUWAIT,AL KUWAIT,QATAR,DOHA,LIBAÑO,BEIRUT 

125 DATA CHIPRE,NICOSIA,BRUNEY,BANDAR SERI BEGAWAN,BAHREIN,MANAMA 

130 DATA SINGAPUR,SINGAPUR,MALDIVAS,MALE 


40 

DATA i 

45 

DATA 1 

50 

DATA i 

55 

DATA 1 

60 

: 

65 

DATA i 

70 

DATA 

80 

DATA 

85 

DATA 

90 

DATA 1 

95 

DATA 1 

100 

DATA 

110 

DATA 

1 15 

DATA 

120 

DATA 

125 

DATA 

130 

DATA 

135 

: 

140 

DATA 

145 

DATA 

150 

DATA 

155 

DATA 

160 

DATA 

163 

DATA 

165 

DATA 

170 

DATA 

175 

DATA 

180 

DATA 

185 

DATA 

190 

DATA 

195 

DATA 

200 

DATA 

205 

DATA 

210 

DATA 

n i c 
+L1 xJ 

: 

220 

DATA 

225 

DATA 


140 DATA SUDAN,JARTUM,ZAIRE(CONGO) ,KINSHASA,ARGELIA,ARGEL,LIBIA,TRIPOLI 

145 DATA CHAD,N'YAMLNA,NIGER,NIAMEY,ANGOLA,LUANDA,MALI,BAMAKO 

150 DATA ETIOPIA, ADDIS ABEBA , MAURI TAÑI A , NUAKCHOTT , REP. SURAFRI CANA , PRETORIA 

155 DATA EGIPTO,EL CAIRO,TANZANIA,DODOMA,NIGERIA,ABUYA,MOZAMBIQUE,MAPUTO 

160 DATAZAMBIA,LUSAKA,SOMAL IA,MOGADISO,MARRUECOS,RABAT 

163 DATA REP.CENTROAFRICANA,BANGUI 

165 DATA BOTSUANA,GABORONE,MADAGASCAR,ANTANANARIVO,KENIA(KENYA),NAIROBI,CAMERUN 
170 DATA YAUNDE,ZIMBABUE,HARARE,R.DEL CONGO,BRAZZAVILLE,COSTA DE MARFIL,ABIYAN 
175 DATA ALTO VOLTA,UAGADUGU,GABON,LIBREVILLE,GUINEA,CONAKRI,GHANA,ACCRA 
180 DATA UGANDA,KAMPALA,SENEGAL,DAKAR,TUNEZ(TUNICIA),TUNEZ,MALAUI,LILONGUE 
185 DATA BENIN,PORTO NOVO,LIBERIA,MONROVIA,SIERRA LEONA,FREETOWN,TOGO,LOME 
190 DATA TRANSKEI,UMTATA,BOFUZATSUANA,MABAZO,GUINEA-BISSAU,BISSAU,LESOTO,MASERU 
195 DATA GUINEA ECUATORIAL,MALABO,BURUNDI,BUYUMBURA,RUANDA,KIGALI,YIBUTI,YIBUTI 
200 DATA SUAZILANDIA,MBABANE,CHISKEI,BICO,GAMBIA,BANYUL,VENDA,ZOYANDOU 
205 DATA CABO VERDE,PRAIA,COMORES,MORONI,MAURICIO,PORT LOUIS 
-10 DATA SAO TOME-PRINCIPE,SAO TOME,SEYCHELLES,VICTORIA 


DATACARACAS,CHI LE,SANTIAGO,PARAGUAY,ASUNCION,ECUADOR,QUITO,GUYANA,GEORGETOWN 
DATA URUGUAY,MONTEVIDEO,SUR INAM,PARAMAR IBO,NICARAGUA,MANAGUA,HONDURAS 
DATA TEGUCIGALPA,CUBA,LA HABANA,GUATEMALA,GUATEMALA,PANAMA,PANAMA 
DATA COSTA RICA,SAN JOSE,R.DOMINICANA,SANTO DOMINGO,HAITI,PUERTO PRINCIPE 
DATA BELIZE,BELMOPAN,EL SALVADOR,SAN SALVADOR,BAHAMA,NASSAU,JAMAICA,KINGSTON 
DATA TRINIDAD Y TOBAGO,PUERTO ESPAÑA,S.VICENTE Y GRANADINA,KINGSTOWN 
DATA DOMINICA,ROSEAU,ANTIGUA Y BARBUDA,SAINT JOHN'S,SANTA LUCIA,CASTRIES 
DATABARBADOS,BRIDGETOWN,GRENADA(GRANADA),SAINT GEORGE'S,PUERTO RICO,SAN JUAN 


240 
245 
250 
255 
260 
265 
270 

275 DATA AUSTRALIA,CANBERRA,PAPUA NUEVA GUINEA,PORT MORESBY,NUEVA ZELANDA 
280 DATA WELLINGTON,SALOMON,HONIARA.FIYI(FIJI O VITI) ,SUVA,VANUATU,PORT VILA 
285 DATA SAMOA,APIA,KIRIBATI,BAIRIKI,TONGA,NUKUALOFA,TUVALU,VAIAKU 
1000 REM — OPCIONES — 

1005 RESTORE 

1010 PRINT" rS" :P0KE53280,1:P0KE53281,1 
1020 PRINT"TAB(10)"a MENU PRINCIPAL — 1 


1030 PRINT" 
1040 PRINT" 
1050 PRINT" 
1060 PRINT" 
1070 PRINT" 
1075 P.RINT" 
1080 PRINT" 


II.- CAPITALES DE EUROPA." 

»I2.- CAPITALES DE ASIA." 

.- CAPITALES DE AFRICA." 

.- CAPITALES DE AMERICA." 

CAPITALES DE OCEANIA." 

SALIR DEL PROGRAMA." 

•*W** QUE OPCION (1-6) **" 

1090 GET Aí:IF Ai="" THEN 1090 
1100 A=VAL(Ai):IF A<1 OR A>6 THEN 1090 
1110 ON A GOTO 1150,1200,1300,1350,1400,6140 
1150 REM ********* EUROPA *********** 

1160 PRINT" n" : F'OKE 53280,6:ZÍ="CAPITALES DE EUROPA":CA=0:CF=0:Q=0 
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1165 PRINT"3 3";:F0RA=1 TQ 19:PRINT"SCT'MID*(Z*,A,1):sFORT-ÍTOIOO:NEXTT.A 
1170 Q=INT<RND<11*30) 

1180 GOSUB 5000:GOTO 1170 

1200 REM ********** ASIA ************ 

1210 PRINT"13" : POKE 53280,6:Z*="CAPITALES DE ASI A":CA=0:CF=0:Q=0 

1220 PRINT"3 3";:F0RA=1 TO 17:PRINT" SCT'MID*(Z*,A,1);:FORT=1T0100:NEXTT,A 

1230 Q=31+ <INT(RND(11*41)1 

1240 GOSUB 5000:GOTO1230 

1300 REM ********* AFRICA *********** 

1310 PRINT"13" : POKE 53280,6: ZÍ="CAF'ITALES DE AFRICA" : CA=0: CF=(1: 0=0 

1320 F'RINT"3 3"; : FORA=1 TO 19:PRINT" !T3"MID*(Z*,A,11;:F0RT=1T0100:NEXTT,A 

1330 Q=72+(INT(RND(11*56)1 

1340 GOSUB 5000:GOTO1330 

1350 REM ********* AMERICA ********** 

1360 PRINT":]": POKE 53280,6:Z*="CAPITALES DE AMERIC":CA=0:CF=0:0=0 

1370 PRINT" 13 3" ; : F0RA=1 TO 22: F'RINT" «3"MID* (Z*, A, 1) ; : F0RT=1 T0100: NEXTT , A 

1380 0=128+(INT(RND <1)*35)) 

1390 GOSUB 5000:GOTO1380 

1400 REM ********* OCEANIA ********** 

1410 F'RINT"3" :POKE 53280,6:Zí="CAPITALES DE OCEANIA":CA=0:CF=0:0=0 
1420 F'RI NT "3 3";:F0RA=1 TO 21: PRINT" K3"MID* (Z*,A,1) ; : FORT= ITOIOO; NEXTT, A 
1430 Q=163+(INT(RND(1)*10)) 

1440 GOSUB 5000:GOTO1430 

4999 END 

5000 REM - RUTINA DE LECTURA DE - 

5005 REM - DATOS V ACIERTOS O - 

5007 REM-FALLOS. PANTALLA F'RIN.- 

5015 RESTORE 

5030 F0RX=0T0172: READA* (X) ,B*(X):NEXT 

5040 F'RINTLEFT* (Oí,5) "«ESTADO CAPITAL" 

5050 PRINT" -7— -" 

5060 F'RINTLEFT* (Oí, 24) " » RECUERDA: S ¡STECLEA '*' PARA TERMINAR."' 

5080 PRINTLEFT*(Oí,7)" ";A*(Q);TAB<18);:INPUT C* 

5090 IF C*="*" THEN 6000 
5095 IF C*=CHR*(13> THEN 5170 
5100 IF C*< >BS (Q)THEN 5170 
5110 IF Cí=B#<Q>THEN 5120 
5120 REM *** BIEN *** 

5130 F'RINTLEFTÍ (0$ , 16) ; TAB (11)"! ! CORRECTO !!":CA=CA+1 
5140 FOR T=1 T02500:NEXT 
5150 F'R I NTLEFT'$ < 0$ , 7) " 

5160 F'RINTLEFT t- (Oí ,16);TAB(11)" " : RETURN 

5170 REM *** MAL *** 

5180 F'RINTLEFT* (0$, 16) ; TAB (10) " ! ! INCORRECTO !!":CF=CF+1 
5190 F'RINTLEFT* (O*, 18) " LA CAPITAL ES SW" : B* (Q) ; "SS" 

5200 FOR T=1 T02500:NEXT 
5210 F'RINTLEFT* (O*,7) " 

5220 F'RINTLEFT* <0*, 16) ; TAB (10) " 

5230 F'RINTLEFT* (O*, 18) " J " : RETURN 

6000 : 

6005 : 

6010 REM - RUTINA DE RECUENTO - 

6020 F'R INT "3" : P0KE53280,14: P0KE53281,14 
6030 F'RINTTAB( 13) "W33 RECUENTO " 

6040 PRINT"*M * NO. DE PREGUNTAS:CA+CF 

6050 PRINT"* * NO. DE ACIERTOS:";CA 

6060 PRINT"* * NO. DE FALLOS:";CF 

6070 F'RINTTAB (13) “ *33 OPCIONES " 

6080 PRINTTAB(6)" *1.- MENU PRINCIPAL." 

6090 PRINTTAB(6)"2.- SALIR DEL PROGRAMA." 

6100 PRINTTAB(5)"MMB** TECLEE OPCION (1-2) **" 

6110 GET A*:IFAÍ=""THEN6110 

6120 A=VAL(A*):If A<1 OR A>2 THEN 6110 

6130 IF A=1 THEN 7 

6140 PRINT"3*":P0KE53280,14:P0KE53281,4 
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Estadística Loto 
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El programa ESTADISTICA 
LOTO, de Jesús García Lázaro, 
ofrece al usuario del CBM-64 la 
ventaja de disponer semanalmen¬ 
te de una Estadística de la Lote¬ 
ría Primitiva y poder utilizar así di¬ 
chos datos para realizar las 
Apuestas. 

El programa, una vez cargado y 
ejecutado, le ofrece un pequeño 
resumen de su utilización, a con¬ 
tinuación podemos ver el menú 
principal pulsando ‘M’, en el cual 
hay dispuestas 5 opciones que 
son las siguientes: 

Menú principal 

La primera es para introducir 
los 6 números más el comple¬ 
mentario. 

La segunda nos salva todos los 
datos en un fichero. 

La tercera nos carga dicho fi¬ 
chero. 

La cuarta nos expone un primer 
menú de datos. 

Con la quinta opción daremos 
por finalizado el trabajo borrando 
todos los datos de la memoria, 
por lo que si nos interesa salvar 
los datos introducidos anterior¬ 
mente deberemos salvarlos antes 
en el Fichero. 

Primer menú de datos 

Una vez hayamos accedido a 
este menú, dispondremos de 7 
opciones. 

A la primera es necesario acce¬ 
der para poder obtener todos los 
resultados que ofrece el progra¬ 
ma. 

La segunda opción es para op- 
tener todos los números pares e 
impares que han salido en todos 
los sorteos que hayamos introdu¬ 
cido en el programa. 

La tercera nos ofrece el total de 
números extraídos en cada una 
de las 5 decenas de que consta 
el bloque de números. 


La cuarta nos da el total de las 
terminaciones de los números 
desde el 0 al 9. 

La quinta nos da el total de las 
veces que se repiten las líneas 
horizontales. 

La sexta es para acceder a un 
segundo menú de datos. 

La séptima nos da opción a ac¬ 
ceder al menú principal. 

Segundo menú de datos 

Una vez hayamos accedido a 
este menú, dispondremos de 
otras 7 opciones. 

La primera nos da el total de 
veces que se repiten las líneas 
verticales. 

La segunda nos ofrece el total 
de números extraídos del 1 al 25. 

La tercera nos da el total de nú¬ 
meros extraídos del 26 al 49. 

La cuarta opción nos muestra 
unos gráficos que nos indican las 
veces que se ha repetido el mis¬ 
mo número. Dicho gráfico consta 
de 5 pantallas, a las cuales se va 
accediendo pulsando ‘G’ o pu- 


diendo volver al menú de datos 
que hemos dejado anteriormente 
pulsando ‘M’. 

La quinta opción nos permite 
obtener una copia de todos los 
datos, además del porcentaje de 
todos los totales, a través de una 
impresora. 

La sexta nos permite volver al 
menú número 1. 

La séptima nos devuelve al 
menú principal. 

Nota: Para visualizar los gráfi¬ 
cos no es necesario haber ejecu¬ 
tado primero la opción del proceso 
de datos, ya que éste es indepen¬ 
diente de los demás subprogra¬ 
mas. 

Observaciones: La extracción 
de datos por impresora está pre¬ 
parado para una impresora Rite- 
man en Modo Plus, por lo que de 
realizarse con otra impresora con¬ 
lleva el modificar la parte del sub¬ 
programa correspondiente debido 
a los códigos del tipo de escri¬ 
tura. 
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10 REM **************************************************** 

20 REM.*** PROGRAMA ESTADISTICO DE LA LOTERIA PRIMITIVA *** 

30 REM **************************************************** 

40 : 

50 BPÍ=CHR$(147) 

60 : 

70 REM ******************************* 

80 REM ** DIMENSIQNAMIENTO MATRICES ** 

90 REM ******************************* 


100 

110 

120 

150 

160 

1 70 

DIM F17. (156,7) 

GOTO 7000 

REM ******************************* 

POKE 53280,1:POKE 53281,1:PRINT BP* 


r rv j. r-4 i r 


n 

180 

PRINT" i a 

*** MENU PRINCIPAL *** 

■1 " 

190 

200 




PRINI r ’ 

PRINT"1 


H 

1 " 

210 

PRINT"1 


1 " 

220 

PRINT"1 

S I ■ INTRODUCCION DE NUMEROS 

1 " 

230 

PRINT"1 


1 " 

240 

PRINT"1 

S L ■ LOAD FICHERO DE DATOS 

1 " 

250 

PRINT" 1 


1 " 

260 

PRINT"1 

S S ■ ' SAVE FICHERO DE DATOS ‘ 

1 " 

270 

PRINT"1 


1 " 

280 

PRINT"1 

S M ü MENU DE DATOS 

1 " 

290 

PRINT"1 


1 " 

300 

PRINT"1 

^ F ■ FINALIZAR 

1 " 

310 

PRINT"1 


1 " 

320 

PRINT" 1 


1 " 

330 

PRINT"1 


1 " 

340 

PRINT"1 


1 " 

350 

PRINT" 1 


1 " 

360 

370 




rn j. i-i i 

BOSUB 5000 


380 

GET ST:IF 

BT~" "THÉN GOSLJB 5070 


390 

IF ST~"I " 

THEN1000 


400 

IF S:T~"L" 

THEN 2000 


410 

IF S$="S" 

THEN 3000 


420 

IF ST™"M" 

THEN4000 


430 

IF ST--"F" 

THEN PRINT BPT:END 


440 

GOTO380 




1000 REM ****************************** 

1010 REM *** INTRODUCCION DE NUMEROS ** 

102O REM ********************** **** **** 

1030 : 

1040 i 
1050 I=R7. 

1060 :i> i •+•:!. 

1070 PRI NT BPf-: POKE 19,1 

1080 POR Z=1 70 40sPRINT"n~";:NEXT 

1090 PRINT" S SORTEO NUMERO "I" ■ " 

1100 PR I NT cMuM": FÜR Z=1 TO 40: PRINT"-" ; : NEXT: PRI NT 
1110 C=0 

1120 C—C-+ 1: READ DT 
1130 PR I NT " ¡sWMM" 

1140 POKE 19,1 

1 150 PR I NT " n M D* " " ; : INPUT F17- <1,0 

1160 PR I NT " isiUMUl 

1165 IF F17, ( I ,C) >49 THEN 1150 

1170 IF C< >7 THEN1120 

1180 R7.= I: RESTORE: GOTO 160 

1190 : 

1200 REM *** DAíAS *** 

1210 DATA PRIMER NUMERO,SEGUNDO NUMERO,TERCER NUMERO,CUARTO NUMERO 
1220 DATA QUINTO NUMERO,SEXTO NUMERO,NUMERO COMPLEMENTARIO 
2000 REM ****************************** 

2010 REM *** • LOAD ' FICHERO *** 
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2020 
2030 
2040 
2050 
2060 
2065 
2070 
2080 
2085 
2090 
2100 
2110 
21 15 
2120 
2130 
2140 
2150 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3065 
3070 
3080 
3082 
3090 
3100 
3110 
3115 
3120 
3130 
3140 
3150 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4 100 
4110 
4120 
4 130 
41 40 
4150 
4160 
4170 
4 180 
4 190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 


PRINT BPT:POKE 53280,1:POKE 53281,1:POKE 19,1 
PRINT"MWtf*ttrsFOR Z=1 TO 40:PRINT"-";:NEXT 
INPUT" NOMBRE DEL FICHERO > ";NF$ 

PRINT 

FOR Z =1 TO 40:PRINT"—";:NEXT 
PR I NT - ««« " : OREN 1,1,0, NF* 

PRINT BP$ 

INPUT# 1 ,R7. 

FÜR 1 = 1 TO R7. 

FOR C=1 TO 7 

PRINT"isMMQMUl * CARGANDO FICHERO *" 

INPUT#1,F17. (1,0 
NEXT C,I 

CLOSE 1 SPRINT BPSsGOTO 160 

REM ****************************** 

REM *** ' SAVE ' FICHERO *** 

REM ****************************** 


PRINT BP*:POKE 53280,1:POKE 53281,1:POKE 19,1 
PRINT"SWBWHW" :FOR Z = 1 TO 40:PRINT"-";:NEXT Z 
INPUT" NOMBRE DEL FICHERO > ";NF$ 

PRINT 

FOR Z=1 TO 40:PRINT""";:NEXT 
PRINT"W«« ":OPEN 1,1,2,NF $ 

PRINT BP$ 

F’RINT#! ,R7. 

FOR 1 = 1 TO R7. 

FOR C=1 TO 7 

PRINT"SM«««W * GRABANDO FICHERO *" 

PRINT# 1 ,F17. (I ,C> 

NEXT C,I 

CLOSE 1 SPRINT BPSsGOTO 160 


REM ****************************** 
REM *** MENU DE DATOS 1 *** 
REM ****************************** 


PRINT BPT:POKE 53280,OsPOKE 53281,0 

PRINT" -- 

PRINT"I * * * MENU DE DATOS 1 * * * 

PRINT" h- ---- 

PRINT"I 


PRINT" I a 1 - 
PRINT"I 
PRINT"I 
PRINT"I 
PRINT"I 
PRINT"I 
PRINT"I 
PRINT"I 
PRINT"I 
PRINT"I 
PRINT 
PRINT"I 
PRINT"I 
PRINT"I 

PRINT" ’■- 

GOSUB 5000 

GET SfsIF St=""THEN GOSUB 5070 
IF S*="1" THEN8000 
IF S*»"2" THEN8180 
IF S$="3" THEN9320 
IF St="4" THEN10290 
IF St="5" THEN11450 
IF S*="6" THEN6000 
IF SS="7" THEN160 


Si ■ 

a 3 ■ 

a 4 ■ 

a 5 s 

i a 6 e 
a 7 i 


a PROCESO DE DATOS ■ 

FICHERO DE PARES E IMPARES 
FICHERO DE DECENAS 
FICHERO DE TERMINACIONES 
FICHERO DE FILAS HORIZONTALES 
MENU DE DATOS C PARTE 2 ] 
a MENU PRINCIPAL.. ■ 


I " 

I 

I " 
I " 
I " 
I " 


I " 
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4330 
5000 
50 10 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
7000 
7010 
7020 
7030 
7040 
7045 
7050 
7060 
7070 
7080 
7090 
71 00 
7110 
7120 
713 O 
7 140 
7 150 
7 160 
7 170 
7180 
7182 
7185 
7190 


G0T04250 

REM ****************************** 
REM *** RUTINA DE TEXTOS *** 
REM ****************************** 

At=" *** " 

A$=A*+"PULSA UNA OPCION" 

X=LEN(Aí) 

pr i NT" «immiamcamBiiBaRmiBaiamBiiiiiRietiniBtiRipTR]• • 


B$=RIGHT $ (Aí,X)+LEFT $ (A*,1):PRINT" 
POR Z=0 TO 50:NEXT Z:RETURN 
REM ****************************** 
REM ****************************** 
REM *** MENU DE DATOS 2 *** 

REM ****************************** 


C"MID*(B$,1,40)"D 


:AT^B* 


I 

H 
I 

FICHERO DE COLUMNAS VERTICALES I" 

I 

FICHERO DE MITAD/BLOQUE 1-25 I" 

I 

FICHERO DE MITAD/BLOQUE 26-49 I" 


a 1 ■ 


a 2 ■ 


a 3 ■ 


PRINT BE*:POKE 53280,0: PQKE 53281,0 

PRINT" -- 

PRINT"I * * * MENU DE DATOS 2 * * 

PRINT" -- 

PRINT"I 
PRINT"I 
PRINT"I 
PRINT"I 
PRINT"I 
PRINT"I 
PRINT"I 
PRINT"I 
PRINT"I 
PRINT"I 
PRINT"I 

PRINT"I a 6 ■ 

PRINT"I 

PRINT"I a 7 ■ 

PRINT"I 

PRINT" *•-- 

GOSUB 5000 

GET ST: IF S*=""THEN GOSUB 5070 
IF S$="l" THEN12450 
IF SS="2" THEN13160 
IF St="3" THEN14160 
IF S*="4" THEN15000 
IF S$="5" THEN16000 
IF S-T— "6" THEN4000 
IF S$^"7" THEN160 
B0T06250 

REM ****************************** 

REM *** INSTRUCCIONES *** 

REM ****************************** 


a 4 ■ GRAFICO DE NUMEROS REPETIDOS 

I 

Ü 5 9 SALIDA DE DATOS POR IMPRESORA 

I 

MENU DE DATOS C PARTE 1 ] 

I 

a MENU PRINCIPAL. ■ 


I " 


I " 


I " 


PRINT BP*:POKE 53280,O:POKE 53281,0 
PRINT" ************************** •• 

PRINT" * PROGRAMA ESTADISTICO *" 

PRINT" * DE LA *" 

PRINT" * LOTERIA PRIMITIVA *" 

PRINT" **************************m. pR j NT 

PRINT"EL PROCESO DE DATOS DE TODOS LOS SUB-PRO" 

PRINT"AGRAMAS,SE REALIZAN CONJUNTAMENTE,EXCEPTO" 
PRINT'TEL DE 'GRAFICOS' QUE PUEDE VISUALIZARSE" 
PRINT"SIN HABERSE EJECUTADO ANTERIORMENTE EL" 

PRINT"PROCESO DE DATOS.PARA LA SALIDA DE DATOS" 
PRINT"TF’OR IMPRESORA,ES NECESARIO EJECUTAR PRI-" 

PRINT"!T1ER0 EL PROCESO DE DATOS." 

PRINT:PRINT 

PRINT" ESTE PROGRAMA HA SIDO REALIZADO POR":PRINT 
PRINT" *** JESUS GARCIA LAZARO ***" 

PR I NT " ***************************** ■■ 

PRINT" *** VILANOVA I LA GELTRIJ ***" 

GOSUB 25000 
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7200 GET Sí:IF Sí=""THEN GOSUB 25070 
7210 IF SÍ="M" THEN 1.50 
7220 GOTO 7200 

8000 REM ****************************** 

8010 REM * FICHERO DE PARES E IMPARES * 

8020 REM ****************************** 

8030 : 

8040 PRINT BPÍ:PÜKE 53280,O:POKE 53281,O:NP=0 

8050 IF R7.=0 THEN PRINT BPÍ:PRINT"M NO HAY DATOS QUE PROCESARGOTO 8054 

8052 GOTO 8060 

8054 POR Z=1 TO 3000:NEXT:GOTO 4000 
8060 FOR 1 = 1 TO R7. 

8070 FOR C=1 TO 7 
8080 PARES=F 1 */. < I , C) 

8090 FOR A=0 TO 49 STEP2 
8100 IF F*A=A THEN NP=NP+1 

8140 pr i nt"• sfoinmmmini ESPERE POR FAVOR" 


8150 PRINT 

8!60 PRINT" PROCESANDO DATOS" 

81 70 NE X T A , C , I r. NI = (R7.*7) -NP 

8 1 72 GOSUB 90 O O : GOSLJB10000 : GOSUB 1 1000 : GOSUB 12000 : GOSUB 13000 : GOSUB 14000 
8174 GOTO 4000 


FINAL DE PROCESO 


8 180 PRINT BPÍ:POKE 53280 ,i:POKE 5328 1,1 

8190 PRINT" r- 

8200 PRINT"I 
8210 PRINT"I 
8220 PRINT"! 

8230 PRINT"! 

8250 PRINT"! 

8260 PRINT"! 

8270 PRINT"! 

8275 PRINT"I 
8280 PRINT"! 

8290 PRINT"! 

8300 PRINT"! 

8320 PRINT"! 

8370 PRINT" L 


I I 

I TOTAL NUMEROS PARES :"NPTAB( 
I TOTAL NUMEROS IMPARES :"NITAB< 
I I 


34) 

34) 


I " 
I " 


8380 GOSUB 25000 

8390 GET Sí:IF Sí=""THEN GOSUB 25070 
8400 IF Sí="M" THEN4O00 
8410 G0T08390 
8420 : 

9000 REM ****************************** 
9010 REM *** FICHERO DE DECENAS *** 
9020 REM ****************************** 
9030 : 

9090 N1=0:N2=0:N3=0:N4=0:N5=0 
9110 FOR 1 = 1 TO R7. 

9120 FOR C=1 TO 7 
9130 DECEN AS=F 1 “/. ( I , C) 

9140 IF DEC 10 THEN NI=N1 +1:G0T09300 
.9150 IF DEC20 THEN N2=N2+1:G0T09300 


CONCURSO 


PREMIADO CON 

tiJ PESETAS C ~—1 


9160 
9170 
9 180 
9190 
9300 
9310 
9320 
9330 
9340 
9350 
9360 
9370 
9380 
9390 
9400 
9410 


IF DEC30 THEN N3=N3+1:G0T09300 
IF DEC40 THEN N4=N4+1:G0T09300 
IF DEC50 THEN N5=N5+1:G0T09300 

NEXT C,I 
RETUF'N 

PRINT BPÍ:POKE 53280,1:POKE 53281, 1 


I " 

I " 

TAB(38) " I 
I " 

TAB(38)"I 
I " 

TAB(38)"I 
I " 


r n i m r 

PRINT"I 
PRINT"! 
PRINT"I 
PRINT"I 
PRINT"I 
PRINT"I 
PRINT"I 
PRINT"I 


FINAL. DE PROCESO 
NUMEROS PRIMERA DECENA 1-9 :"NI 
NUMEROS SEGUNDA DECENA 10-19:"N2 
NUMEROS TERCERA DECENA 20-29:"N3 
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9420 

9430 

PRINT"1 
PRINT"1 

NUMEROS 

CUARTA 

DECENA 30-39: 

"N4 

TAB(38) 

1 " 

9440 

9450 

9460 

PRINT"I 
PRINT"1 
PRINT"1 

PC-T KIT" L- 

NUMEROS 

QUINTA 

DECENA 40-49: 

"N5 

TAB(38) 

1 " 

1 " 


9530 GOSUB 25000 

9540 GET S*:IF S$=""THEN GOSUB 25070 
9550 IF S$="M" THEN4000 
9560 G0TÜ9540 
9570 : 

10 <'.) O O R Eí M * * * * * * * * * * * * * * * -*•*•*-**••* * *** * * * *. .* 

1001.0 REM ***FICUERO DE TERMINACIONES*** 

10020 REM ****************************** 

10030 : 

10080 X0=0:X1~0:X2=0:X3=0:X4-0:X5=0:X6=0:X7=0:X8=0:X9=0 
10110 POR 1*1 TO R7. 

10120 FOR C~1 TO 7 
10130 TE-F17. (1,0 
10140 XsT=STRí(TE) 

10150 T--VAL (RIGHTÍ (X$,1) ) 


10160 

IF 

T= 1 

THEN 

X1=X1+1:GOTO10280 

10170 

IF 

T=2 

THEN 

X2-X2+1:GOTO10280 

10180 

IF 

T r -3 

THEN 

X3-X3+1:GOTO10280 

10190 

IF 

T “4 

THEN 

X4=X4+1:GOTO10280 

10200 

IF 

T=5 

THEN 

X5-X5+1:GOTO10280 

10210 

IF 

T=6 

THEN 

X6=X6+1-GOTO10280 

10220 

IF 

T=7 

THEN 

X7=X7+1:GOTO10280 

10230 

IF 

T=8 

THEN 

XS=X8+1:GOTO10280 

10240 

IF 

T—9 

THEN 

X9—X9+1:GOTO10280 

10250 

IF 

T ~0 

THEN 

XO-XO+1:GOTO10280 


10280 NEXT C,I:RETURN 

10290 PRINT BPtsPOKE 53280,1:POKE 53281,1 

10300 PRINT" r- 

10310 PRINT"I FINAL DE PROCESO 

10320 PRINT"I 


10330 

PRINT"1 

NUMEROS 

TERMINADOS 

EN 

0 

"XO 

TAB(38)' 


10340 

PRINT"1 

NUMEROS 

TERMINADOS 

EN 

1 

"XI 

T AB(38)' 


10350 

PRINT"1 

NUMEROS 

TERMINADOS 

EN 

2 

" X2 

TAB(38)' 


10360 

PRINT"1 

NUMEROS 

TERMINADOS 

EN 

3 

" X3 

TAB(38)' 

' 1 " 

10370 

PRINT"1 

NUMEROS 

TERMINADOS 

EN 

4 

" X4 

TAB(38)' 

' 1 " 

10380 

PRINT"1 

NUMEROS 

TERMINADOS 

EN 

5 

" X5 

TAB(38)' 


10390 

PRINT"1 

NUMEROS 

TERMINADOS 

EN 

6 

" X6 

TAB(38)' 


10400 

PRINT"1 

NUMEROS 

TERMINADOS 

EN 

7 

" X7 

TAB(38)' 


10410 

PRINT"1 

NUMEROS 

TERMINADOS 

EN 

8 

" X8 

TAB(38)' 

' 1 " 

10420 

PRINT"1 

NUMEROS 

TERMINADOS 

EN 

9 

" X9 

TABÍ38)' 

' 1 " 


10430 PRINT"I 

10490 PRINT" L - 

10500 GOSUB 25000 

10510 GET S*:IF S*=""THEN GOSUB 25070 
10520 IF S$="M" THEN4000 
10530 GOTO10510 
10540 : 

11000 REM ***************************** 
11010 REM FICHERO DE FILAS HORIZONTALES 
11020 REM ***************************** 

11030 : 

1 1080 L_ 1 =0: L2=0: L3=0: L4=0: L5=0: L.„6=0: L7=0 


1 1090 

Bt=' 

, *":C$=' 

'*":D^="*' 

• ; eí="*":F^="*" 

:GÍ="*" 

1 :Ht="* 

lili 0 

FOR 

1 = 1 TO 

R'7. 




1 1120 

Bt=' 

'*":Ct=' 

'*" : D-í^"*' 

I :EÍ="*":FÍ="*" 

‘:G$="*" 

1 :Hí="* 


11130 FOR C=1 TO 7 
11140 FH=F17. (I ,C) 

11150 IF BS="/" THEN11190 

11160 I FFH= 1 0RFH=80RFH=150RFH=220RFH=290RFH=360RFH=43THEN B* ="*": GOTO11180 
11170 GOTO11190 

11180 IF B$="*" THEN L1=L1+1:B*="/":G0T011430 
11190 IF C*="/" THEN11230 
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11200 IFFH=20RFH=90RFH=160RFH=230RFH=300RFH=37 ÜR FH=44 THEN C*=" 
'11210 GOTO 1 1230 

11220 IF 0*="*" THEN L2=L2+ 1 : C*=" / " 

11230 IF D*»*'/" THEN 11270 

11240 IFFH=30RFH=100RFH=170RFH=24QRFH=310RFH=38 OR FH=45 THEN D*= 
11250 GOTO11270 

11260 IF D$="*" THEN L3=L.3+1: D*="/": GOTO 11430 
11270 IF E$="/" THEN11310 

11280 IFFH=40RFH=1 10RFH=180RFH=250RFH=320RFH=390RFH=46 THEN E*="* 
11290 GOTO11310 

11300 IF E*="*" THEN L4=L4+1:Eí=" / ":GOTO11430 
11310 IF F*="/" THEN11350 

11320 IFFH=50RFH=120RFH=190RFH=260RFH=330RFH=400R FH=47 THEN F*="- 
11330 GOTO11350 

11340 IF F$= "*" THEN L5~L5+ 1: FT--" / " : GOTO 1 1430 
11350 IF G*="/" THEN11390 

11360 IFFH=60RFH=130RFH=200RFH=270RFH=340RFH=410RFH=48 THEN GT="* 
11370 GOTO11390 

11380 IF G*="*" THEN L6=L6+1:GT-"/":GOTO11 430 
11390 IF H$=" / " THEN 11430 


11400 IFFH=70RFH=140RFH-210RFH=280RFH=350RFH=420RFH=49 THEN 
11410 GOTO11430 

11420 IF H*="*" THEN L7=L7+1:H*="/" 

11430 NEXT C 
11440 NEXT IsRETURN 

1 1450 PRI NT BPS: POKE 53280,1: PO)QF- 53281 , 1 
1 1460 PRINT" r---V 


1 1470 
1 1480 
1 1. 490 


PRINT"I 
PRINT"i 
PRINT"I 


FINAL DE PROCESO 


I " 


11500 

PRINT" 1 

FILAS 

HORIZONTALES 

PRIMERA 

"L1 

TAB(38) 

1 1510 

PRINT"1 

FI LAS 

HORIZONTALES 

SEGUNDA 

" L2 

TAB(38) 

1 1520 

PRINI " I 

FILAS 

HORIZONTALES 

TERCERA 

"L3 

TAB(38) 

1 1530 

PRINT" 1 

FILAS 

HORIZONTALES 

CUARTA 

"L4 

TAB(38) 

1 1540 

PRINT"1 

FILAS 

HORIZONTALES 

QUINTA 

"L5 

TAB(38) 

11550 

PRINT"1 

FI LAS 

HORIZONTALES 

SEXTA 

"L6 

TAB(38) 

1 1560 

PRINT" 1 

FILAS 

HORIZONTALES 

SEPTIMA 

"L7 

TAB(38) 


1 1 570 
1 1580 
1 1590 


PRINT' 
PRINT" 
PRINT' 


I " 
I " 
I " 


11650 PRINT" L 


-_i " 


11660 GOSUB 25000 

11670 GET S*:IF ST=""THEN GOSUB 25070 
1168O IF S*="M" T HEN 4OOO 
11690 GOTO11670 


H*= 


* 


11700 : 


12000 

REM 

■# * * * * * * * * * * * * * *• * ****** * * * * * * * 



J. 2010 

REM 

*** FICHERO DE COLUMNAS 

*** 



12020 

REM 

n -x- x * * * ■¥. * * * * * * * **** * x- ********* 



12030 

: 





12080 

vi =<: 

):V2~0:V3=0:V4=0:V5~0:V6™ 

0 : V7=0 



12090 

B T' 

'*":Cí="*":Dt="*":Eí="*": 

Ft="*" 

:G$="*" 

: H T -- " * 

12110 

FOR 

1 = 1 TO R7. 




12120 

B*=' 

' * " : CT= " * " : Dt-= " * " : Et= " * " : 

FT="*" 

:64="*" 

:H$="* 

12130 

FOR 

C=1 TO 7 





12140 FH=F17.(I,C) 

12150 IF BT-"/" THEN12190 

12160 IFFH=10RFH=20RFH=30RFH=40RFH=50RFH=60RFH=7THEN BT="*"s G0T01: 
12170 GOTO 12190 

12180 IF B*="*" THEN V1=V1+1: B:*=" / " : GOTO 12430 
12190 IF C$="/" THEN12230 

12200 I FFH !S =80RFH=90RFH= 1 OORFH= 1 1 ORFH= 120RFH= 13 OR FH=14 THEN Ct=" 
12210 GOTO12230 

12220 IF C*="*" THEN V2=V2+1:/" 

12230 IF DT-"/" THEN12270 

12240 IFFH=150RFH™160RFH™170RFH=18QRFH=190RFH=20 OR FH=21THEN DT= 
12250 GOTO12270 

12260 IF Dt="*" THEN V3=V3+1:D^-"/":GOTO12430 
12270 IF THEN 12310 


:GOTO11220 


GOTO11260 


-.GOTO 11300 


:GOTO11340 


:GOTO11380 


:GOTO11420 


2180 


:GOTO12220 


*":GOTO12260 
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12280 

IFFH=220RFH=230RFH=240RFH=250RFH=260RFH=270RFH=28THEN E*="*":BOTO12300 

12290 

GOTO12310 



12300 

IF E*="*" THEN V4=V4+1:E*="/":GOTO1242 

;o 


12310 

IF F*="/" THEN 12350 



12320 

I FFH~290RFH=300RFH=31 0RFH ! =320RFH=330RFH=34ÜR FH=35 

THEN F$="*":GOTO12340 

12330 

GOTO12350 



12340 

IF FT~"*" THEN V5=V5+1:F$="/"s G0T012430 


12350 

IF G*="/" THEN12390 



12360 

IFFH=360RFH=370RFH=380RFH=390RFH=400RFH=41GRFH=42 

THEN G£="*":GOTO12380 

12370 

GOTO12390 



12380 

IF G*="*" THEN V6=V6+1:G$="/": GOTO 1242 

so 


12390 

IF H*="/" THEN 12430 



12400 

IFFH=430RFH=440RFH=450RFH=460RFH“470RFH=480RFH=49 

THEN Ht="*":GOTO12420 

12410 

GOTO12430 



12420 

IF H*="*" THEN V7=V7+1: H$=" / " 



12430 

NEXT C 



12440 

NEXT I:RETURN 



12450 

PRINT BPSsPOKE 53280,1:POKE 53281,1 



12460 

F'RINT" «- 

~i 


12470 

PRINT' 1 1 FINAL DE PROCESO 

i" 


12480 

PRINT"1 

i n 


12490 

PRINT"1 

i " 


12500 

PRINT"1 FILAS VERTICALES PRIMERA 

"VI TAB(38) 


12510 

PRINT"1 FILAS VERTICALES SEGUNDA 

"V2 TAB(38) 


12520 

PRINT"1 FILAS VERTICALES TERCERA 

"V3 TAB(38) 


12530 

PRINT"1 FILAS VERTICALES CUARTA 

"V4 TAB(38) 


12540 

PRINT"1 FILAS VERTICALES QUINTA 

"V5 TAB(38) 


12550 

PRINT"1 FILAS VERTICALES SEXTA 

"V6 TAB(38) 


12560 

PRINT"1 FILASVERTICALES SEPTIMA 

"V7 TAB(38) 

II | II 

12570 

PRINT"1 

1 " 


12580 

PRINT"1 

1 " 


12590 

PRINT"1 

1 " 


12650 

PRINT" L - 

- _j ii 


12660 

GOSUB 25000 



12670 

GE7 S*:IF S$=""THEN GOSUB 25070 



12680 

IF S*="M" THEN6000 



12690 

GOTO12670 



12700 

: 



13000 

REEM ***************************** 



13010 

REM FICHERO MITAD BLOQUE 1-25 *** 



13020 

REM ***************************** 



13030 

: 



13080 

J1 - 0 



13100 

FOR 1 = 1 TO R7. 



13110 

FOR C=1 TO 7 



13120 

PM=F17. (1,0 



13130 

IF P!i=<25 THEN J1=J1 + 1 



13140 

NEXT C,I 



13150 

RETURN 



13160 

PRINT BPT:POKE 53280,1:POKE 53281,1 


J 

13170 

PRINT" r---------—. 

.i " 


13180 

PRINT"! FINAL DE PROCESO 

1 " 


13190 

PRINT"1 

1 " 


13200 

PRINT"1 

1 " 


13210 

PRINT"1 

I " 


13220 

PRINT"! NUMEROS PRIMERA MITAD 1..25 : 

"J1 TAB(38)" 

1 " 

13230 

PRINT"1 

1 " 


13240 

PRINT"1 

1 " 


13250 

PRINT"1 

1 " 


13320 

PRINT" L - 

- _j n 


13330 

GOSUB 25000 



13340 

GET ST-: IF S*=""THEN GOSUB 25070 



13350 

IF S*="M" THEN6000 



13360 

GOTO13340 



13370 

: 



14000 

REM ***************************** 



14010 

REM FICHERO MITAD BLOQUE 26-49 ** 



14020 

REM ***************************** 



14030 

: 




COMMODORE MAGAZINE • 39 

















Programas 

14080 J2=Ü 

14100 FüR 1 = 1 TO R7« 

14110 FÜR C=1 Tü 7 
14120 SM=F 17. (I , C) 

14130 IF SM= >26 THEN J2=J2+1 
14140 NEXT 0,1 
14150 RETURN 

14160 PRINT BF'Í:POKE 53280,1:PÜKE 53281,1 

14170 PRINT" r --- 1 " 

14180 PRINT"I FINAL DE PROCESO I" 

14190 PRINT"I I" 

14200 PRINT"I I" 

14210 PRINT"I I" 

14220 PRINT"! NUMEROS SEGUNDA MITAD 26.. 49 : "J2 TAB(38)"I" 

14230 PRINT"! | 

14240 PRINT"! |" 

14250 PRINT"! | ". 

1 4320 PR I NT " L -- '• 

14330 GÜSUB 25000 

14340 GET Sí:IF Sí=""THEN GOSUB 25070 
14350 IF Sí="M" THEN6000 
14360 GOTO14340 
14370 : 

15000 REM ***************************** 

15005 REM GRAFICO DE NUMEROS REPETIDOS 
15010 REM ***************************** 

15015 : 

15020 PRINT BPí:POKE 53280,1:POKE 53281,1:GOSUB1 5835 

15025 PRINT" $B(4MPXmMmMnltf4MillVlVl4imwInIillBIIi||NlUMS. 12345678" 

15030 GOSUB15568:GOSUB1531O 

c 11 1 .1 n u a e n e i d r o x i m o n u ¡n e r o 




m ® 

L WO 


©@K1TO(5)[L 
!® V ÜL 


Cómo se ve 

Como se teclea 

Efecto conseguido 

Cómo se ve 

Cómo se teclea 

Efecto conseguido 

Colores del VIC-20 y del 64 


Códigos de cursor y control 


■ 

Ctrl +1 

Negro 

ti 

Home 

Cursor a casa 


Ctrl+ 2 

Blanco 

n 

Shift + home 

Limpia pantalla 


Ctrl+ 3 

Rojo 

.. 

Crsr 

Cursor derecha 

k 

Ctrl+ 4 

Cian 

ii 

Shift + crsr 

Cursor izquierda 

i 

Ctrl+ 5 

Púrpura 


Crsr 

Cursor abajo 

Eií 

Ctrl+ 6 

Verde 

n 

Shift+crsr 

Cursor arriba 

V» 

\¿M 

Ctrl+ 7 

Azul 


Ctrl+9 

Carácter inverso 

mi 

Ctrl+ 8 

Amarillo 

■ 

Ctrl + 0 

Carácter normal 




II 

Del 

Borrar 

Colores del 64 solamente 


II 

Shift + del 

Insertar 

.3 

Cbm + 1 

Naranja 




r 

Cbm + 2 

Marrón 

Teclas de función 


9 

Cbm + 3 

Rosa 

■ 

F1 


SI 

Cbm + 4 

Gris oscuro 

a 

F2 = Shift + F1 


.3 

Cbm + 5 

Gris medio 

■ 

F3 


II 

Cbm+6 

Verde claro 

12 

F4 = Shift + F3 


n 

Cbm + 7 

Azul claro 

II 

F5 


■ ■ 

■ > 

Cbm+8 

Gris claro 

ü 

F6 = Shift + F5 





II 

F7 





■ 

F8 = Shift + F7 
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Los mejores juegos, trucos, 
artículos y aplicaciones 



P.V.R 795 pts. 










apticncioj| 


Núm. 12 

Commodore-16 por den¬ 
tro y por fuera. Sprites: los 
alegres duendecillos (1. a 
parte). Supervivencia (1. a 
parte). El Forth (y 3. a par¬ 
te). 


Núm. 18 

Practícale: todo el poder 
de una hoja electrónica. 
Pascal (1 . a parte). Progra- 


Núm. 21 

Video-Digitizer: visión ar¬ 
tificial para Commodore. 
Seikosha GP 700 VC: una 
impresora a todo color y 
con capacidades gráfi¬ 
cas. Sprites multicolores. 
El nuevo C-128. 


SERVICIO 


Núm. 8 

Joystick y Paddle para to¬ 
dos. Misterio del BASIC. 
EL LOGO. Cálculo finan¬ 
ciero. Programas. 


Núm. 15 

Síntesis de voz: su orde¬ 
nador tiene la palabra. Pi- 
lot: un lenguaje de alto ni¬ 
vel (2. a parte). Guía de 
software para C-64 (2. a 
parte). 


mas: juegos y aplicacio¬ 
nes veraniegos. ¡Canas¬ 
ta!: dos ases del balon¬ 
cesto para el C-64. 


commodore 

Ma^LazlnRj 


Núm. 6 

El misterio del Basic/Lá¬ 
pices ópticos para todos/ 
Concurso, juegos, aplica¬ 
ciones. 


r*vJWéV m 


Ojgxizlru 

■ g 

3 e i i iiBt 




á Programas 
/ para Vic-20 


^ landre» 

A, Quinta Feria 
Commodore 


CLgjazl 


tnalws de SkmniMUHX-s 

VITELA CON TU C 64 


Núm. 5 

Programas, juegos y con 
curso/Londres: Quinta fe 
ria de Commodore/Basic 
versión 4.75. 


. »s. Idem í tica 

tus errores 




Num. 9 

Conversión de programas 
del Vic-20 al C-64. Mónta¬ 
le un paddle. Identifica tus 
errores. Software comen¬ 
tado. 




(xMKUfio, ItKijm, inn» 






Num. 10 

Koala Pad: La potencia de 
un paquete gráfico. Tru¬ 
cos. El FORTH. Software 
comentado. EL LOGO. 


ao- yp 


f CAtYtott* «» el C 44 




i íf; 

\_r¡s *c 


ZER 


Program 


Síntesis de voz: 


Núm. 7 

El ordenador virtuoso. 
MusiCalc. Programa mo¬ 
nitor para el 64. Lápices 
ópticos. Ampliación de 
memoria para Vic-20. 











































































DE EJEMPLARES ATRASADOS 

Complete su colección de COMMODORE MAGAZINE 
A continuación le resumimos el contenido de los ejemplares aparecidos hasta ahora. 




x 'CqxizL 


Cap db rmmm& 


Hofkks% 

trmm.. 


Núm. 32 

Gráficos en el Vic-20, C- 
64 y C-128. Hablemos de 
ordenadores o de cómo 
conseguir que no nos en¬ 
tienda nadie. Compati¬ 
bles: fenómeno importan¬ 
te en el mundo de la mi- 
croinformática profesio¬ 
nal. 


Núm. 23 

Sinfonías en Chip: sínte¬ 
sis de sonido. Sprites en 
movimiento. Paisajes 
fractales en tu Commodo- 
re. Código máquina. Sight 
and sound: cuatro maes¬ 
tros de la música. Galería 
de Software: los mejores 
programas analizados en 
profundidad. 


Núm. 25 

Los ports: conexiones al 
exterior. El BASIC del C- 
128 Matemáticas por or¬ 
denador. Software edu¬ 
cativo. Melodías musica¬ 
les del Solfeo al Basic. 


Núm. 27 

Inteligencia Artificial: los 
lenguajes expertos. Sis¬ 
temas de numeración: bi¬ 
nario y hexadecimal. Co¬ 
mandos de disco C-128. 
Ficheros secuenciales. 
Libros, juegos y trucos. 


Núm. 29 

Piratas: problemas y le¬ 
gislación entorno a este 
tema. Backups: comenta¬ 
rio del cartucho «Freeze 
Frame» y del Interface 
«Cosmos’ Thoug». Intro¬ 
ducción al PC de Commo- 
dore. Los juegos de Lucas 
Film. 


cornrnodore 

.— -JvLzgxzzlné .d 




de disco 


Sistemas 

de 


Ficheros 


INTELIGENCIA 


ARTIFICIAL 


Núm. 26 Núm. 28 Núm. 31 Núm. 33 

Joysticks: ¿cómo son?, Robótica: evolución de la La Magia del Amiga: pri- Reportaje fotográfico so- 

¿cuáles son?, ¿cómo se robótica y las posibilida- meras impresiones y po- bre la nueva imagen del 

programan?. Gráficos en des técnicas de los Ro- sibilidades que este micro C-64. Ofimática: la utili- 

código máquina. Simula- bots. MECOMO: el brazo puede ofrecernos. Los dad de los ordenadores 

dor Spectrum. Proyecto Robot. Mapa de memoria periféricos que vienen. en la empresa. Ordenado- 

Atenea. del C-128. Nuevas profe- Mutaciones de personali- res de segunda mando. 

siones. dad. Juegos de Ingenio. 


CORTE Y ENVIE ESTE CUPON A COMMODORE MAGAZINE 

SERVICIO DE EJEMPLARES ATRASADOS 

Bravo Murillo, 377. Tel.: 7337969 - 28020 MADRID 


dore 


p % ■ 


i *4 


OrdemHfomde 


mmmm 


CóSqo máquina 






pron-uam- 


Mal 


software 


RUCOS 


53 


odore 


Num. 22 

Programas lightning: grá¬ 
ficos profesionales a tu 
alcance. Montaje: un inte¬ 
rruptor programable para 
el C-64. Sprites múltiples. 
Cómo graba los datos el 
Datassette. 


gráficos 


: 


>¡s 


Núm. 24 

El ordenador en la ense¬ 
ñanza. ADA para Commo- 
dore. El C-128 en fotos. 
Los peques y el ordena¬ 
dor. Seikosha Sp-1000 
VC. Investigación sobre el 
sonido. 


Ruego me envíen al precio de 300 ptas. los siguientes ejemplares atrasados de COMMODORE 

MAGAZINE___ 

El importe lo abonaré 

Contra reembolso □ Cheque adjunto □ Con mi tarjeta de crédito □ American Express 
□ Visa □ Interbank 

Número de mi tarjeta i 11 I 1 1 11 1 1 ~~[ 1 ~T~ 1 11 1 11 1 

Fecha de caducidad___ 

NOMBRE_ 

DIRECCION_ 

POBLACION__C.P._ 

PROVINCIA_ 






































SOFTW\RE 


Sr 

HABILIDAD 



do con «seres pequeñitos» de 
nuestra especie, te habrás dado 
cuenta de que tienen dos debili¬ 
dades especialmente peligrosas 
para ellos. Una es comerse todo 
lo que encuentran y otra es me¬ 
ter los dedos en el primer enchu¬ 
fe que tienen a mano. Dos curio¬ 
sas debilidades que debemos vi¬ 
gilar, si no queremos que nues¬ 
tros pequeños amiguitos se enve¬ 
nenen por ingerir algún medica¬ 
mento, o se electrocuten. 

El director del hospital conoce 
lo agotador que es tu trabajo, y te 
ha dado permiso para que utilices 
un gas especial que tranqui¬ 
liza momentáneamente a los ni¬ 
ños, pero debes usarlo con pre¬ 
caución. 


Mad 

Nurse 

Loco, completamente loco, 
puedes acabar, querido amigo. 
Aunque esta misión se presenta 
de un modo aparentemente sim¬ 
ple, tendrás que hacer uso de 
toda tu paciencia, para poder lle¬ 
varla a cabo. 

Estás en la zona de maternidad 
de un conocido hospital, y tienes 
que cuidar de los bebés que allí 
se encuentran. 

El juego tiene tres niveles de di¬ 
ficultad, comprueba tus dotes de 
niñera en el más fácil, y adelante. 

Lo cierto es que hoy en día los 
bebés están muy espabilados, y 
en cuanto te descuidas dan un 
salto y salen de su cuna, ocasio¬ 
nando no pocos problemas a 
quien cuida de ellos. 

Los bebés, gateando como 
pueden, se mueven por las tres 
plantas que tienes a tu cargo. De¬ 
berás ocuparte de que estén en 
sus cunitas el mayor tiempo po¬ 
sible, el mayor número de bebés. 
Todo esto aumentará tu prestigio 
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FICHA DEL JUEGO 

PUNTUACION 

1 

2 

3 

4 

5 

6 

7 

8 

■ 

9 

10 

ORIGINALIDAD 







Ú 



NOMBRE: MAD NURSE 

ADICCION 







■ 

n 



DE: FIREBIRD (Drosoft) 

GRAFICOS 






■ 





ORDENADOR: COMMODORE-64,128 

SONIDO 





■ 






CONTROL JOYSTICK 

GENERAL' 






■ 







en el hospital y hará que tu pues¬ 
to de trabajo sea seguro. Tienes 
muchas razones para mantener a 
los niños en su lugar, ya que to¬ 
das las precauciones son pocas 
para evitar que hagan algo que no 
deben. Por poco que hayas trata¬ 


El argumento y el funciona¬ 
miento de Mad Nurse son senci¬ 
llos. 

Es un juego divertido, en el 
que la velocidad con que trabaja 
la enfermeda es fundamental 
para alcanzar un buen récord. 








































































Dan 

Daré 

El protagonista de este juego 
es un famoso personaje de có¬ 
mic, creado por Frank Hampson, 
y en esta ocasión corre una apa¬ 
sionante aventura en la que tú 
puedes intervenir. 

Mekon, el verdoso y malvado 
enemigo de nuestro planeta, ha 
hecho una súbita aparición anun¬ 
ciando su propósito de mandar 
un asteroide, del tamaño de un 
planeta menor, en un rumbo de 
colisión con la Tierra. Mekon ha 
dicho que llevará a cabo su plan, 
a no ser que las potencias de la 
Tierra se rindan a su poder. Ade¬ 
más ha secuestrado a dos de los 
más valiosos colaboradores de 


Dan Daré, la doctora Peabody y 
el astronauta Digby. 

Nuestro héroe consigue llegar 
al asteroide del malvado, donde 
tendrá que atravesar múltiples pe¬ 
ligros, salvar a sus compañeros y 
vencer definitivamente a Mekon 
(o por lo menps, intentarlo). 


A lo largo de su misión, Dan 
Daré tendrá que pelearse en más 
de una ocasión con los guardia¬ 
nes del asteroide, los treens. 
Cada vez que Daré lucha con 
ellos, pierde una energía que le es 
imprescindible para llegar al final. 
Es fácil perderse por los laberin¬ 
tos del asteroide, por lo que es 
aconsejable ir confeccionando un 
mapa, a medida que Dan Daré 
avanza por él. Stirpey, una peque¬ 
ña mascota, sigue a nuestro ami¬ 
go por todas partes, atenuando la 
frialdad y soledad del héroe en el 
asteroide. 

El camino por recorrer es largo, 
y pueden ocurrir muchas cosas. 
Por ello, dependiendo del lugar 
del asteroide en que te encuen¬ 
tres, los efectos de pulsar el bo¬ 
tón de disparo de tu joystick se¬ 
rán distintos. Los mensajes de la 
pantalla te informarán de tu situa¬ 
ción y posibilidades en cada mo¬ 
mento, y además por fin no ten¬ 
drás que jugar pegado a un dic¬ 
cionario de inglés, porque los chi¬ 
cos de Dro-Soft se han dado 
cuenta de que en España tam¬ 
bién hay aficionados a los video¬ 
juegos, y se han decidido a tradu¬ 
cir las pantallas a nuestro idioma. 

Dan Daré reúne sorpresas, 
aventuras, laberintos, etc., lo que 
hace de él un juego con el que es 
realmente difícil aburrirse. 
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SOFTWARE 



Arcana 

El castillo de los misterios, la 
Magia Negra que nunca alcanzó 
el ojo humano... todo eso puedes 
conocer jugando con Arcana. 

En la tierra de los Elfos Brillan¬ 
tes, te han elegido para que los li¬ 
beres de un malvado rey que des¬ 
de su castillo, Arcana, gobierna 
las tierras del Norte. El poder de 
este rey se vería considerable¬ 
mente mermado si tú (Baludar) 
consigues hacerte con el libro de 
la Magia Negra, el que encierra 
todos los secretos. Este podero¬ 
so instrumento está guardado y 
sellado, y sólo podrás obtenerlo 
la noche de la Luna en Mutación, 
en el equinoccio de otoño. 

Comienzas la aventura en las 
mismísimas almenas del castillo, 
y tendrás que encontrar el modo 
más rápido y seguro de bajar ha¬ 
cia el interior. Cuídate de los dis¬ 
paros y de cualquier ser que te 
encuentres por simpático que pa¬ 
rezca. Todos son tus enemigos y 
merman tu energía. Cuando em¬ 
piezas la misión tus fuerzas están 
al cien por cien, pero rápidamen¬ 
te descenderán si tienes más «en¬ 
cuentros» de los permitidos. 

A lo largo del camino tienes la 
posibilidad de coger distintos ta¬ 
lismanes que te serán de gran 
ayuda para romper los precintos 
del Gran Libro y hacerte con él. 

Pero ante tanto peligro, como 
te habrás figurado, no estás des¬ 


protegido. Puedes disparar en 
cualquier dirección y defenderte 
así de los seres que te ataquen. 
Algunos morirán víctimas de tus 


disparos, otros te dejarán tranqui¬ 
lo por unos momentos. 

Arcana es un auténtico laberin¬ 
to de los poderes del mal. Así que 
si quieres ahorrarte pasos en fal¬ 
so, te aconsejamos en este jue¬ 
go, como en otros, que vayas di¬ 
bujando un mapa del castillo, a 
medida que avanzas por él. 

Los mensajes de la pantalla es¬ 
tán en español, así que ya no 
cuentas con esa disculpa de 
siempre (el no saber inglés), para 
permitirte no llegar al final del 
juego, ¿vale? 
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INGENIO 


BELICOI 


PSI-5 Trading Co. 
Una misión suicida 



amos a trasladarnos al siglo 
XXXV para llevar a cabo una mi¬ 
sión tan complicada como diver¬ 
tida. 

Formas parte de la Compañía 
Comercial PSI-5, que se dedica a 
intercambiar mercancías, con el 
sano fin de obtener beneficios de 
tales cambios. Así pues, tendrás 
que seleccionar el itinerario de tu 
viaje de negocios, teniendo muy 
en cuenta el saldo positivo que 
cada viaje pueda aportar a PSI-5. 
Ni que decir tiene, que el peligro 
está en relación directa con los 
beneficios que puedas obtener. 

Dependiendo del rumbo escogi¬ 
do, deberás seleccionar también 
la tripulación más adecuada para 
ayudarte en tu empresa. Los can¬ 
didatos son humanoides, aliení¬ 
genas, vaodroides y otros simpá¬ 
ticos seres que ya irás conocien¬ 
do. Cada uno tiene diferentes ha¬ 


bilidades y resistencia a las situa¬ 
ciones límite, con las que sin 
duda te encontrarás. 

Debes controlar las cinco sec¬ 
ciones de que se compone tu 
nave; son armería, reconocimien¬ 
to, navegación, ingeniería y repa¬ 
ración. 

La tripulación, escogida por ti, 
te mantendrá informado del esta¬ 
do de cada sección; pero eres tú 
quien dará las órdenes oportunas 
en cada momento y en cada sec¬ 
ción. 

Podrás ejercer el control de la 
nave desde la cabina de mando, 
que se maneja por medio de una 
serie de elecciones que irán apa¬ 
reciendo en un menú principal, y 
submenús. También recibirás 
mensajes sobre el estado de la 
nave, las provisiones, o las con¬ 
secuencias que tus decisiones 
puedan acarrear. 

Cuando estés en comunicación 
con algún miembro de la tripula¬ 
ción, podrás ver a tu interlocutor 
en un pequeño monitor situado a 
la derecha del panel principal de 
la cabina de mando. 

Con esta breve explicación, 
dudo que puedas darte idea de la 
gran complejidad de este juego, 
que como decíamos al principio, 
le da también una agilidad fuera 
de lo común. 



FICHA DEL JUEGO 

PUNTUACION 

1 

2 

3 

4 

5 

6 

7 

8 

9 
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ORIGINALIDAD 










NOMBRE: PSI-5 TRADING Ca UNA MISION SUICIDA 

ADICCION 








■ 



DE: ACCOLADE (Compulogical) 

GRAFICOS 







1 

1 



ORDENADOR: COMMODORE-64,128 

SONIDO 









I 

■ 

CONTROL: JOYSTICK 0 TECLADO 

GENERAL 










□ 
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Prodigy 



l\los encontramos ahora en 
Mechworld, un extraño planeta en 
el que las relaciones entre huma¬ 
nos y máquinas son opuestas a 
las existentes en la tierra. 

Wardlock, una máquina de este 
planeta, ha conseguido crear dos 
humanoides en su laboratorio. 
Nejo, un pequeño bebé humanoi- 
de, que el otro humanoide, Solo 
(a quien tú controlas), debe cui¬ 
dar. Solo se da cuenta de que tan¬ 
to su vida como la de su peque¬ 
ño amiguito corren un grave peli¬ 
gro, y cuando Nejo le deja tiem¬ 
po libre, Solo busca el modo de 
salir del planeta, antes de que las 
máquinas comiencen a experi¬ 
mentar con ellos y les hagan 
daño. 

En la pantalla verás unos indi¬ 
cadores que te informan sobre el 
nivel del biberón de Nejo, así 
como de la cantidad de oxígeno 
de que dispone y de su necesidad 
de tomar un baño. Tendrás que 
estar atento a estos aparatos, así 
como a unos monitores del pla¬ 
neta. En la parte inferior de la 
pantalla hay un teletipo que escri¬ 
birá unos mensajes de gran utili¬ 
dad para Solo. 

Los laboratorios de Wardlock 
están divididos en cuatro zonas: 
Zona de Hielo, Zona Vegetal, 
Zona Técnica y Zona del Fuego. 
Solo ha descubierto que para 
abrir las puertas al mundo exte¬ 
rior necesita encontrar cuatro Lla¬ 
ves de Poder y colocarlas en la 
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cerradura. Cuando empiece a fun¬ 
cionar el sistema de teletranspor¬ 


te, debes utilizarlo sin vacilación, 
dada la dificultad de mover a Solo 
por los laberintos del planeta, y el 
cuidado que hay que tener con 
Nejo. Como es un bebé, aún no 
sabe andar, y gateando no puede 
correr tanto como Solo, así que 
tendrás que vigilarlo constante¬ 
mente para no perderlo. 

Otras criaturas como las Blobe- 
ritas o los Globexwels circulan 
por estos parajes. Debes proteger 
a Nejo de estas máquinas. 

Una buena orientación en el es¬ 
pacio te ayudará mucho en tu 
aventura. Tus cualidades como 
niñera serán recompensadas, no 
lo dudes... 
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HABILIDAD 


Ninja Master 

te has hecho adicto a los 
juegos basados en temas de lu¬ 
cha oriental, tienes ventaja, ami¬ 
go. Podrás competir y salir airoso 
de las pruebas que te pongan los 
Ninjas, para llegar a ser uno de 
ellos. 


Van a celebrarse los juegos 
anuales de los Ninjas, y tú, que 
deseas formar parte de tan espe¬ 
ciales guerreros, deberás superar 
cuatro pruebas para alcanzar tu 
objetivo. Para pasar de una de es¬ 
tas pruebas a otra, tendrás que 
acumular un determinado núme¬ 
ro de puntos. Debes estar seguro 
de tu actuación y prepararte con¬ 
cienzudamente, puesto que si fra¬ 
casas a la tercera tentativa, que¬ 
darás eliminado de la competi¬ 
ción. Sin embargo, si superas las 
cuatro pruebas, podrás optar a un 
grado superior, dentro de la jerar¬ 
quía Ninja, compitiendo de nuevo. 

Los más grandes maestros 
comprobarán tanto tu fortaleza y 
resistencia, como tu habilidad. 
Tendrás que esquivar las flechas 
que te lanzan, moviendo tan rápi¬ 
damente como puedas tus brazos 
y piernas, para que no sean atra¬ 
vesados impunemente. Otra de 
las pruebas consiste en romper 
cierto número de troncos con un 
certero golpe de tu puño. Los Nin¬ 
jas también quieren comprobar tu 
destreza en el manejo de la espa¬ 


da, para lo cual te pondrán en si¬ 
tuaciones realmente peligrosas, 
como luchar con las Galaxias Su¬ 
ri ken. 

Ser uno de ellos es un alto 
honor, y tratarán de ponértelo di¬ 
fícil. 

Los paisajes van cambiando a 
medida que pasas de una prueba 
a otra, aunque sinceramente creo 
que estarás demasiado ocupado 
en luchar y defenderte, como 
para fijarte en muchos detalles. 

La práctica y perseverancia ha- 
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rán de ti un digno miembro de 
esta estirpe, tan estimada en 
todo Oriente. Aunque te advierto 
que son muy pocos los que con¬ 
siguen tan alto honor. 

Recuerda que un buen Ninja no 
teme a nadie, pero es temido por 
todos, y tú debes conseguir ser 
más valiente que ellos, sin dejar 
de vigilar todos sus planes. 
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HABILIDAD 


Erebus 

c 

womo te habrás dado cuenta, 
si eres observador y aficionado 
de verdad a los juegos futuristas, 
en este tiempo que está por venir 
todo está extremadamente lim¬ 
pio, ¿verdad? Es raro ver una pa¬ 
pelera llena o un bote vacío en 
una nave espacial. Pues la res¬ 
puesta a tanta limpieza es simple; 
resulta que en el futuro tendre¬ 
mos unos planetas dedicados ex¬ 
clusivamente a reciclar esos ma¬ 
teriales de desecho. Uno de esos 
planetas es Erebus. Allí todo está 
mecanizado, y su funcionamiento 
(perfecto, por cierto) se controla 
desde la tierra. 

Pero algo extraño ha ocurrido, 
ciertos signos de vida han sido 
detectados en Erebus, y tras al¬ 
gunas investigaciones, en la 
Tierra se han dado cuenta de que 
ios habitantes del vecino planeta 
Hadebus están modificando las 
máquinas de reciclaje, para que 
produzcan un gas letal, que pien¬ 
san utilizar contra nuestro pla¬ 
neta. 

Ahora sí empieza la aventura. 
Tú eres el encargado de evitar el 
desastre, y se ha puesto a tu dis¬ 
posición una rapidísima nave es¬ 
férica con la que combatir al ene¬ 
migo. Tendrás que volar con agi¬ 
lidad sobre la abrupta superficie 
de Erebus, disparando contra las 
naves que te atacan. 

La lucha se desarrolla en dife¬ 
rentes niveles, y tendrás que con¬ 
seguir un mínimo de puntos para 
poder pasar de uno a otro. 

El scroll de pantalla es muy rá¬ 
pido y los objetos con que pue¬ 
des chocar son numerosos. Sólo 
un piloto hábil y experimentado 
como tú, puede llevar a buen tér¬ 
mino esta misión. En pantalla, en 
la parte inferior, verás unos men¬ 
sajes que te informan sobre la 



zona del planeta en que te en¬ 
cuentras. Se te aconseja una pre¬ 
caución especial en la parte de 
Erebus llamada «deslizante». 
Como te podrás imaginar, aquí el 
control de los movimientos de tu 
esfera debe ser muy preciso. 


Con Erebus disfrutarás de unos 
gráficos realmente buenos. La 
sensación de velocidad y el giro 
de tu nave están perfectamente 
conseguidos. Bueno, ya lo verás. 
Adelante, y no permitas que nos 
«ensucien» el Universo. 


















































Para aquellas personas que les resulte Incómodo tener perros 
guardianes, un ordenador personal puede ser una interesante 
solución para evitar tristes disgustos por la acción de un 
ratero desalmado. 

Unidos contra los ladrones y con ayuda de un sistema de 
alarmas que controlará nuestro fiel Commodore, detectaremos 
el paso de cualquier ladrón, al intentar forzar las puertas o 
ventanas de nuestra casa. 


Frente al canino amigo del 
hombre, el ordenador tiene cier¬ 
tas ventajas higiénicas, y además 
no es necesario preocuparse de 
la comida del animalito automáti¬ 
co. En cualquier caso, puede re¬ 
sultar curioso estudiar, cómo un 
ordenador actúa de guardián de 
una casa, o de cualquier sistema. 
Aprendiendo así las posibles apli¬ 
caciones de nuestro amigo elec¬ 
trónico. 

En primer lugar, empezaremos 
pensando en lo que un buen guar¬ 
dián de la casa necesita. Supon¬ 
gamos que nosotros mismos so¬ 
mos los encargados de la seguri¬ 
dad de una casa. ¿Qué sería lo 
primero que necesitaríamos? 

Hay que saber de alguna mane¬ 


ra que los ladrones han entrado 
al recinto, es decir, LO PRIMERO 
DE TODO ES POSEER SENSO¬ 
RES QUE INFORMEN AL COM¬ 
MODORE DEL MUNDO EXTE¬ 
RIOR. 

Podríamos construir un compli¬ 
cado sistema de visión y recono¬ 
cimiento de formas para deducir 
qué siluetas cambian respecto 
del fondo indicado, para saber si 
hay movimiento o no, pero es 
más fácil pensar más económica¬ 
mente y encontrar alguna carac¬ 
terística común a los cacos. Y 
ésta no es ni más ni menos que 
todos han de entrar de algún 
modo por una ventana, una puer¬ 
ta, la terraza o algo que comuni¬ 
que con el exterior. 
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ma contra 
ladrones 



Colocaremos entonces swit- 
ches, interruptores, en esos luga¬ 
res, unidos a cables por donde en 
caso de estar cerrados pasaría la 
corriente eléctrica. Así, sólo se 
cerrarán cuando el criminal entre 
y mueva lo suficiente el switch 
como para que la corriente circu¬ 
le. La forma de colocación queda 
un poco a inventiva propia, ya que 
será el propio usuario el que me¬ 
jor juzgue qué lugares son más 
peligrosos y por dónde es más fá¬ 
cil la colocación de los dispo¬ 
sitivos. 

Una vez colocados los interrup¬ 
tores, ya tenemos una señal eléc¬ 
trica que podemos procesar a tra¬ 
vés de nuestro útil y famoso port 
del usuario. Ya sabemos que no¬ 
sotros podemos definir las co- 
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Fig. 1 Multiplexores de 3 y 4 bits con número de entradas correspondiente. 


nexiones del port como entradas 
y salidas a nuestro albedrío, y que 
disponemos de dos pares de re¬ 
gistros (cuyas salidas están uni¬ 
das a los pines PA0-PA7 el prime¬ 
ro y PB0-PB7 el segundo). Así que 
la forma más fácil para trabajar 
es definir un registro como entra¬ 
da, estando los interruptores co¬ 
nectados a esos bits, leyendo lo 
que hay en ellos (PEEK 56578 
para el A y PEEK 56579 para el B), 
para saber qué es lo que sucede 
en el exterior. Pero, supongamos 
que no es una casa, sino un in¬ 
menso castillo lo que debemos 
cuidar. Dos registros no serán su¬ 
ficientes, ya que como máximo 
serán 16 los switches testeados, 
y son muy poca cosa para las 32 
ventanas, 6 puertas, 3 chimeneas, 
una carbonera y la bodega que 
posee nuestro castillo, de forma 
que vamos a usar un truco nue¬ 
vo, una pastilla que se vende en 
las tiendas y que nos valdrá para 
nuestro propósito: el multiplexor. 

QUE ES UN MULTIPLEXOR 

Supongamos un hipódromo, 
donde dieciséis pura sangre es¬ 
peran para correr. Están en sus 
calles, impacientes por salir; 
pero ésta es una carrera especial. 
Van a salir de uno en uno, y un 


hombre pequeño abrirá la calle 
correspondiente según un cartel 
que él ve desde lejos y que es 
puesto por el jurado. 

Por ejemplo, si éste pone el 3, 
nuestro pequeño personaje va a 
la tercera calle, abre la portezue¬ 
la y el caballo saldrá por la única 
calle de salida que existe. Si el 
cartel es el 0, se acerca a la ca¬ 
lle con ese número y la abre, y de 
la misma forma con todos los de¬ 
más. Pues bien, si transformamos 
los caballos en corriente eléctrica 
(la proviniente de nuestros swit¬ 
ches anti-cacos), y pensamos que 
el jurado somos nosotros y nues¬ 
tro Commodore, el pequeño per¬ 
sonaje se llama multiplexor. Una 
pastilla a la que hay conectada 
una serie de entradas, por ejem¬ 
plo, 16, y otra entrada que será un 
número binario (que en realidad 
serán tantas entradas como bits 
tenga el número en cuestión), y 
cuando éste sea un 4, la salida 
será igual a la que hay en la lí¬ 
nea 4. 

¿Y qué necesitaremos para 30 
entradas? Pues el número binario 
en este caso será de cinco bits, 
que podrá manejar desde la línea 
0 hasta la 31. El diagrama podéis 
verlo en la figura 1. 

Esta pastilla es muy fácil de 


construir con puertas AND y OR. 
Un esquema de un multiplexor 
construido con este tipo de puer¬ 
tas lo tenéis en la figura 2, en 
este caso tiene cuatro entradas y 
por tanto sólo necesitaremos un 
número binario de 2 bits. No obs¬ 
tante, a no ser que queráis probar 
cómo se realiza un circuito con 
puertas AND, OR y NOT (negado- 
res), lo más fácil es adquirirla di¬ 
rectamente en la tienda, cuyo pre¬ 
cio es inferior a 350 pesetas. 

Ya tenemos un multiplexor, y 
no necesitamos nada más que 
cable y los interruptores, para te¬ 
ner todo el sistema de percepción 
instalado. Pero... ¿Y qué hacemos 
con el ladrón? 

ALARMA 

Una forma muy entretenida es 
hacer que el ordenador maneje 
un robot policía de forma que si 
algún delincuente incide en nues¬ 
tras pertenencias privadas, nues¬ 
tro hombre de Harrelson mecáni¬ 
co le pegue un tiro directamente, 
o bien opte por unas esposas 
como solución más civilizada, 
pero eso requeriría ciertamente 
un costo probablemente superior 
al de los bienes que nos pudiera 
sustraer, así que una buena solu¬ 
ción es poner en marcha una 
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fuerte alarma que haga huir a los 
elementos y que sirva a su vez de 
aviso a los vecinos de la barriada. 

Hay muchos tipos de sirenas, 
la mayoría manejables con una 
sola señal, que puede ser manda¬ 
da desde el Commodore en caso 
de que algún switch mande a su 
vez una señal de peligro. 

Usaremos entonces dos regis¬ 
tros; el A y el B. El número bina¬ 
rlo que antes mencionamos irá en 
PBO, PB1, PB2 y PB3, y variará 
desde 0 hasta 15. Cuando man¬ 
demos el valor 0 por el registro 
(previamente habremos definido 
de PBO a PB3 como salidas), el 
pin correspondiente a la salida de 
la pastilla tendrá la señal que tie¬ 
ne el switch 0, y este valor he de 
leerlo con el ordenador, así que lo 
conectaremos a PB4, definido en¬ 
tonces como entrada. Si os fijáis 
en el circuito de la figura, las en- 


Fig. 2 Multiplexor 
de 2 bits, 
identificador 
de salidas y 
esquema intemo 
del circuito 
integrado. 
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9 REM * PONE PBO A PB3 COMO SALIDAS Y PB4 A PB7 COMO ENTRADAS * 

10 POKE 56579,15 

14 REM * PONE PA2 COMO SALIDA ********************************** 

15 POKE 56578,PEEK(56578) OR 4 
20 FOR B=0 TO 15 

29 REM * GENERA NUMEROS COLOCANDOLOS ENTRE PBO Y PB3 *********** 

30 POKE 56577,B 

39 REM * ESTADO DE LAS ENTRADAS DEL CONTADOR ******************* 

40 A=PEEK<56577) AND 16 

44 REM SALTA EL RETARDO DE LA ALARMA ESTA DISPARADA POR SW15 * 

45 IF A=16 AND B=15 THEN 90 - 

49 REM * LA ALARMA ESTA DISPARADA ****************************** 

50 IF A=»16 THEN POKE 56576,PEEK (56576) AND 251 

54 REM * LA ALARMA SUENA Y TERMINA EL PROGRAMA ***************** 

55 IF A=16 THEN END 
60 NEXT B 

70 GOTO 20 

89 REM * RETARDO DE ALARMA EN LA ENTRADA PRINCIPAL ************* 

90 FOR C=1 TO 500000 :NEXT C 
100 GOTO 50 


Fig. 3 Programa que te permite programar el Port del Usuario para manejar el montaje 


tradas estarán normalmente a 1 
(5 voltios), y sólo cuando alguno 
de los interruptores se cierre, el 
valor de la entrada al multiplexor 
será O (tierra). 

Podéis ver además que la sire¬ 
na esta manejada por otra salida, 
PA2, que junto con la salida de 5 
voltios del Commodore serán los 
encargados de hacer sonar la si¬ 
rena. 


Los pasos a seguir serán en¬ 
tonces: 

1) Pondremos como salida de 
PBO a PB3 y como entrada 
PB4. 

2) Pondremos como salida a 
PA2. 

3) Iremos testeando las líneas, 
es decir, mandaremos un O 
primero por PB0...PB3 con lo 
que en PB4 estará el valor de 


la línea 0. Si lo que llega es 
un cero, significará que el 
switch está cerrado, con lo 
que deberemos mandar un 
cero por PA2 (mandar 251 al 
registro A, en la 56578) para 
que la alarma empiece a so¬ 
nar. Si lo que llega es un 1, 
el switch continúa abierto. 

4) Probar con otro nuevo núme¬ 
ro, en este caso el 1, y repe¬ 
tir el proceso anterior. Des¬ 
pués se probará con los res¬ 
tantes números, hasta el 15. 

5) Volver al punto 2. 

Esto mismo es lo que hace el 
programa de la figura 3. La única 
diferencia es que uno de los in¬ 
terruptores, en este caso el 15, 
está unido a la puerta principal, 
con lo que cada vez que abramos 
la sirena sonará. Para evitar esto 
se ha puesto una subrutina de re¬ 
tardo, y así nos dará tiempo a 
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Fig. 5 Diagrama para la utilización del multipiexor 74150. 


romper el programa cuando en¬ 
tremos, y así evitar el desagrada¬ 
ble aullido del artilugio. 

Como nota aclaremos una vez 
más que la CIA, que es un circui¬ 
to interno del Commodore y no la 
central de inteligencia americana. 
Esta pastilla maneja todas esas 
cosas, incluidos los registros A y 
B, y los registros de dirección de 
datos, que son los que definen a 
éstos como entradas o salidas. 

POR ULTIMO 

Y de esta forma tan simple he¬ 
mos construido un guardián. Son 
muchos los circuitos prácticos 
que podemos hacer con nuestro 
C64 gracias a las facilidades que 
nos proporcionan el port del 
usuario y los circuitos adiciona¬ 
les del microordenador, también 
queda la puerta abierta a cual¬ 
quier idea que podamos tener 
para solucionar un problema 
cualquiera. Si nos fijamos, el or¬ 
denador funciona un poco como 
nosotros. Tiene unos sensores, 
que son los ojos del ordenador, 
que le informan de lo que ocurre 
fuera, y una sirena que es la voz 
con la que avisa. Pero esto no 



siempre es así. Con montajes pa¬ 
recidos a lo que hemos visto aquí, 
existen sistemas muy complica¬ 
dos que son manejados por un 
ordenador de forma segura y fia¬ 
ble. Un caso típico ocurre en las 
centrales nucleares. En ellas, un 
ordenador recibe señales de mu¬ 


chos tipos, es decir, tiene mu¬ 
chos «ojos» que le informan no 
sólo de aberturas y cierres de 
ventanas sino de cosas mucho 
más difíciles y que requieren 
cuantificarlas, es decir, informar 
sobre la mangnitud de lo que 
ocurre, como la temperatura, en 
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MONTAJE 


Para realizar el montaje del es¬ 
quema de la figura 4, el material 
que necesitas es: 

— Conector al port del usuario. 

— Multiplexor 74150 

— 16 interruptores o switches. 

— 16 resistencias de 2 KOh- 
mios. 

— Una alarma de 5 voltios que 
consuma menos de 100 miliam- 
perios, o el montaje de un in¬ 
terruptor programable, como el 
que apareció en el número 22 de 
Commodore Magazine, con una 
alarma a 250 voltios. 

Este multiplexor puedes utili¬ 
zarlo para 16 interruptores con 4 
entradas, 8 interruptores con 3 
entradas o 4 interruptores y 2 en¬ 
tradas, según sea de grande tu 
castillo. 

Para realizar las conexiones al 
chip, puedes adquirir también 
una base que te permite evitar ca¬ 


lentar los pines de éste. 

El montaje es bastante sencillo 
e incluye varias partes bien di¬ 
ferenciadas. 

1.° Soldaduras al conector que 
va al port del usuario. 

En la patilla 1 va la tierra que 
conectará con la tierra de los in¬ 
terruptores y con las dos tierras 
del chip. En la patilla 2, que es la 
salida de +5 voltios en corriente 
continua, alimentará el chip mul¬ 
tiplexor y cada una de las resis¬ 
tencias que van unidas a cada in¬ 
terruptor (por estos circuitos sólo 
pasará la corriente cuando el in¬ 
terruptor se cierre), y por último 
alimentará a una pequeña alarma 
o en su defecto a un relé que se 
encargue de abrir y cerrar el paso 
de corriente a una alarma alimen¬ 
tada por 250 voltios. 

En las patillas C, D, E y F es¬ 
tán las cuatro salidas de datos, 
en la H está la entrada que se 


pone a 1 cuando se cierra un in¬ 
terruptor. Y la patilla H envía un 
0 a la alarma para hacerla sonar. 

2. ° Soldaduras al chip multi¬ 
plexor. 

En la figura 4 tienes un esque¬ 
ma de las patillas con las entra¬ 
das y salidas correspondientes. 

3. ° Sistema de interruptores. 

Te aconsejamos que utilices 

cables dobles para cada interrup¬ 
tor y que al principio montes las 
resistencias y el sistema de ali¬ 
mentación de éstas. 

4. ° Alarma. 

Como ya te hemos dicho, tie¬ 
nes la posibilidad de utilizar el in¬ 
terruptor programable que dise¬ 
ñamos en la revista n.° 22 que 
dispone, igual que en éste, de 
una entrada de datos y de una ali¬ 
mentación de 5 voltios, que en 
este caso va a la sirena, o en el 
caso del interruptor programable, 
va al relé. 


el que los sensores le dicen al or¬ 
denador los grados a los que se 
encuentra la caldera. Si esa tem¬ 
peratura sube, el ordenador lo de¬ 
tecta y sus señales harán que se 
abra o cierre determinada válvula, 
y que como consecuencia se en¬ 
fríe la caldera. A pesar de que en 
esos casos la seguridad que se 
requiere es altísima, el hardware 
y el software que lo componen no 
es muy diferente a lo que hemos 
visto. Se usan pastillas como el 


multiplexor e incluso puertas 
AND y OR, microprocesadores de 
8 y 16 bits, sensores y converso- 
res encargados de pasar medidas 
de estos sensores a números bi¬ 
narios (conversores analógico-di¬ 
gitales). 

La diferencia más notable es 
que en estos casos reales, el 
tiempo de ejecución es importan¬ 
tísimo (pensar en una central nu¬ 
clear a punto de esplotar o en un 
avión) y con software realizado en 


código máquina o en lenguajes 
especiales. Estos sistemas sue¬ 
len ser llamados de tiempo real, 
y son fundamentales en la indus¬ 
tria. 

Estos simuladores de guar¬ 
dianes serán el día de mañana 
una de las partes más importan¬ 
tes que compondrán nuestra vida 
futura, y probablemente será 
asombrosa su evolución. 

¡Y todo con esos aparatitos pa¬ 
recidos a nuestro Commodore! 
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Recursividad, 

magia 

del ordenador 


Entre las oscuras montañas de la India, en una región bañada 
por el Ganges, existe un gran templo sagrado donde los 
seguidores de Brahma han de ir alguna vez en su vida. Es el 
gran templo de Benarés. En él, bajo el domo que señala el 
centro del mundo, yace una placa de latón a la que están 
fijas tres agujas de diamante, de un codo de alta cada una, y 
tan gruesas como el cuerpo de una abeja. En torno a cada 
una de esas agujas, Dios, en el acto de la creación, colocó 
sesenta y cuatro discos de oro puro, descansando el mayor 
sobre una placa de latón, y decreciendo progresivamente los 
demás conforme se asciende por la pila. Es la torre de 
Brahma. Día y noche, sin cesar, los sacerdotes del templo van 
transfiriendo los discos de una aguja a otra, de acuerdo con 
las leyes fijas e inmutables de Brahma, que exigen que el 
oficiante no deba mover más de un disco por vez, y que debe 
situar tal disco en otra aguja, sin que queden por debajo de él 
discos más pequeños. Cuando los 64 discos se hayan 
transferido de la aguja en que Dios los colocó en la creación 
a una de las otras, la torre, el templo y los brahmines 
quedarán reducidos a polvo, y, con inmenso estruendo, el 
mundo se desvanecerá. 

Hoy por hoy, afortunadamente, todavía no deben haber 

acabado. 


C 

4# i no con 645 discos, podemos 
hacer la prueba con 3 o 4 mone¬ 
das, haciendo una pequeña torre 
con ellas, de forma que sean to¬ 
das de diferente valor (50, 25, 5 y 
1 ptas.), y estén colocadas las de 
mayor tamaño abajo y en suce¬ 
sión tal y como «rigen las inmu¬ 
tables leyes de Brahma». Si trata¬ 
mos de pasar ese montón a otra 
aguja imaginaria (ya que buscar¬ 
nos una original puede ser ruino¬ 
so para nuestra economía) ten¬ 
dremos la posibilidad de jugar al 
famoso juego de las torres de Ha¬ 
noi. El juego se basa, pues, en pa¬ 
sar, esas monedas de una en una 
sin que nunca éste una mayor en¬ 
cima de una más pequeña, y te¬ 
niendo para eso dos montones, 
aparte de el que forman ya las 
monedas. 

Existen numerosos algoritmos 
que tratan la resolución de este 
pequeño problema y probable¬ 
mente hayáis oído hablar de ellos 
más de una vez, pero lo que qui¬ 
zás no hayáis pensado, que lo 
que se esconde detrás de éstos, 
es un concepto de los ordenado¬ 
res, a caballo entre la magia y la 
filosofía: la recursividad. 
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Realmente, parecería que no 
acaba nunca. En el caso teórico 
de una definición infinita en la 
pantalla, serían también infinitas 
las televisiones que se verían, 
cada una más pequeña que la 
anterior. 

Pues bien, algo así es la re- 
cursividad. 

En informática, sabemos que 
una subrutina puede llamar a otra 
subrutina. Incluso, esta otra pue¬ 
de llamar a otra más, y ésta a 
otra, etc... Pero ¿y qué ocurre si 
UNA SUBRUTINA SE LLAMA A SI 
MISMO? Desastroso. Suponeos 
algo así. 

500 GOSUB 500 

Sería parecido a un GOTO a la 
misma línea. La única diferencia 
sería que en este caso la memo¬ 
ria del ordenador se iría llenando 
de direcciones de retorno que 
guarda en la pila hasta la ca- 
tástofre. 

Veamos ahora este otro: 

500 PRINT k: k = k-1 

510 IF k>0 THEN GOSUB 500 

520 RETURN 

En este caso, aunque se llama 
a sí misma, llegaría un momento 
en que la subrutina saldría y el 
programa se acabaría. En este 
caso, la solución de la subrutina 
no estaría mal, pero no estaría 
muy clara, ya que un GOTO haría 
el mismo papel. Pero veamos 
este otro: 

510 IF k>0 THEN GOSUB 500 
520 k = k + 1: PRINT k; 

530 RETURN 

El resultado ya no es el mismo 
que GOTO. Con GOSUB hemos 
aprovechado la ventaja de que el 
ordenador guarda las direcciones 
de retorno, y ejecuta tantas veces 
las instrucciones que van detrás 
como la hallamos llamado (en 
este caso k). 

La recursividad tiene un origen 
bastante lógico. Hay subrutinas 
que usamos muchas veces, como 
la de multiplicación de matrices, 
o la de encontrar un blanco en 


LA RECURSIVIDAD 

Imaginaos una escena espe¬ 
cial. Un hombre mayor está mi¬ 
rando la televisión. Esta está co¬ 
nectada a un circuito cerrado y la 
imagen que sale por pantalla 
corresponde a lo que una cáma¬ 
ra unida directamente por cable a 
la televisión está filmando. Y la 
cámara está situada justo detrás 
de él, a su espalda, unos dos me¬ 
tros por encima de su hombro, 


sacando por pantalla la cabeza y 
a la propia televisión... ¿Qué sal¬ 
dría en la pantalla? 

El hombre estaría observando 
en la pantalla de televisión cómo 
miraba él mismo a la televisión, y 
a la vez, ¿qué habría en la televi¬ 
sión dentro de la televisión? Pues 
otra vez, la imagen del hombre 
que miraba la televisión, y en esa 
televisión otra vez otro hombre 
con otra televisión, y así suce¬ 
sivamente. 








una cadena, y a veces son tan úti¬ 
les que ellas mismas se podrían 
utilizar. Vamos a poner un ejem¬ 
plo que lo clarifique. 

Se llama factorial de un núme¬ 
ro N al resultado de multiplicar 
N x N-1 x N-2... x 1. Factorial de 3 
sería 3x2x1= 6, y el 4 sería 
4 x 3 x 2 x 1 = 24. Se representa 
con una admiración, y entonces 
3! = 6 y 4! = 24. Y si nos fija¬ 
mos el factorial de un número N 
es lo mismo que ese número N 
multiplicado por el factorial del 
número más pequeño que él en 
una unidad, es decir: 

factorial de N = N x factorial de 
(n-1) 

N! = N x (N-1)! 

(por ejemplo, 5! = 5x4x3x 
2x1) 

Y si tuviéramos que hacer una 
subrutina para hablar del factorial 
de N, podríamos hacerla multipli¬ 
cando N por el resultado de la 
misma subrutina con N-1. Sería 
algo así: 

SUBRUTINA FACTORIAL (N) 

100 IF N>1 THEN FACTORIAL = 
N x FACTORIAL (N-1) 

110 IF N = 1 THEN FACTORIAL 
= 1 

120 RETURN 

Desgraciadamente, esto no es 
Basic, ya que en él, las subruti¬ 
nas son llamadas por el número 
(GOSUB 500) y no por el nombre 
(FACTORIAL (N)). Pero por ahora 
trabajaremos con los nombres 
que es más sencillo. 

¿Cómo funcionaría? Pues vea¬ 
mos un ejemplo. Si desde el pro¬ 
grama principal llamo con FAC¬ 
TORIAL (3), es decir, quiero que 
me devuelva 3!, el ordenador iría 
a la subrutina, y en particular a la 
instrucción 100, con N = 3, y com¬ 
probaría que N es mayor que 1, 
con lo que ejecutaría 

FACTORIAL = 3 x FACTORIAL 

( 2 ) 

Como FACTORIAL (2) no lo cono¬ 
ce, se vuelve a llamar a sí misma, 


PERO ESTA VEZ CON UN NUME¬ 
RO MENOR, el 2. Diríamos que 
deja pendiente el 3 hasta que en¬ 
cuentre FACTORIAL (2), y mete el 
3 en una pila. Vuelve a empezar 
otra vez, pero esta vez con un 2 
en el valor de N, y le vuelve a pa¬ 
sar el mismo. Guarda ese 2, y 
ahora lo que necesita es FACTO¬ 
RIAL (1), así que nuevamente se 
llama. Pero fijaos lo que ocurre 
esta vez. Como N es 1, la instruc¬ 
ción 100 no la ejecutaría, sino que 
ejecutaría la 110. En el caso del 
FACTpRIAL la solución de 1 es 
claramente FACTORIAL (1) = 1, 
y ahora sí que llega a RETURN, 
pero esta vez ya lleva un valor en 
FACTORIAL. Vuelve al lugar des¬ 
de donde la llamaron, y ve que tie¬ 
ne pendiente 

FACTORIAL = 2 x FACTORIAL 

(1) x 1 =2 

y resuelve lo que le quedaba. Ya 
tiene entonces 2!, que es 2, y con 
el da marcha atrás y saca de la 
pila el siguiente que tiene pen¬ 
diente, que es el 3, y resuelve 

FACTORIAL = 3 x FACTORIAL 

(2) = 3x2 = 6 


Y como ya no le quedan más pen¬ 
dientes, devuelve el resultado al 
programa principal. Lo mismo ha¬ 
ría con otro N que se le manda¬ 
rá, y lo único que iría haciendo es 
meter valores en la pila hasta que 
él encuentre el 1, y después pro¬ 
cede de manera inversa. La dife¬ 
rencia está entonces en que 
cuando se llama a sí mismo, no 
sólo ha de guardar la dirección de 
vuelta en una pila (la instrucción 
que debe ejecutar después de en¬ 
contrar RETURN), sino que ha de 
tener también otra pila en donde 
guarde los parámetros que va te¬ 
niendo. 

Y todo esto ¿para qué nos vale 
en el gran templo de Benarés? 
Pues para mucho, ya que la reso¬ 
lución de la torre de Hanoi es ab¬ 
solutamente recursiva. 

LAS TORRES DE HANOI 

Tengamos una pequeña torre 
con dos monedas como muestra 
la figura 1. Hemos de pasarla a 
cualquiera de las otras dos, por 
ejemplo, la que tiene el número 2. 
Pues lo más fácil es coger la mo- 
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neda superior y mandarla al 3, y 
después la Inferior y más grande 
al 2, y posteriormente pasar la pe¬ 
queña que está en el tres encima 
de la del 2. 

¿Y para tres mondeas? Pues en 
este caso habría que pasar las 
dos primeras monedas al 3, la 
más grande de abajo al 2 y otra 
vez, el montón que está en el 3 y 
que tiene dos monedas, al 2. Na¬ 
turalmente no podemos mover 
montones enteros, pero por eso 
precisamente entre la recursivi- 
dad. Voy a llamar a la subrutina 
MOVER, y moverá un montón de 
N monedas desde el palo A has¬ 


ta el B, así que la denotaré por 
MOVER (N,A,B). El resultado se¬ 
ría: 

SUBRUTINA MOVER (N,A,B) 

100 IF N< = 0 RETURN 
110 C= 6 ■ A ■ B 
120 MOVER (N-1 ,A,C) 

130 PRINT «muevo desde»; A; 

«HASTA»; B 

140 MOVER (N-1,B,C) 

150 RETURN 

Cuya traducción al español se¬ 
ría: 

VOVER N MONEDAS DESDE A 
HASTA B 


Si N = 0 (no hay monedas) enton¬ 
ces nada. 

Si no es así, entonces: 

Mover las N-1 de arriba desde A 
hasta C. 

Muevo la que me queda en A has¬ 
ta B. 

Mover las N-1 que estaban en B, 
a C. 

Y el programa ya está acabado. 

Parece mentira que algo tan sim¬ 
ple como la recursividad haya re¬ 
ducido tanto la complejidad de 
un programa. Desgraciadamente, 
en Basic no podemos hacer eso, 
ya que, aunque sí tiene una pila 
para las direcciones, no la tiene 
para parámetros (para los núme¬ 
ros), así que tenemos que cons¬ 
truirla nosotros. Lo único que ha¬ 
cemos entonces es crearnos 
nuestra propia pila, tal y como hi¬ 
cimos en el juego del laberinto la 
semana pasada, y cada vez que 
encuentre RETURN, saque de la 
pila los parámetros, y cada vez 
que vaya a llamarse a sí misma, 
meta esos parámetros con los 
que está trabajando a la pila, y 
empiece de nuevo la subrutina 
con esos nuevos valores (con N-1 
monedas, A y C, por ejemplo). El 
resultado lo tenéis listado en la fi¬ 
gura 2. 

La recursividad, al recurrir a 
uno mismo para solucionar los 
problemas, es una forma de ac¬ 
tuación en informática que hace 
a veces que un programa muy 
complicado quede reducido a 
muy pocas instrucciones. 

Por ejemplo, cojamos un table¬ 
ro de ajedrez. 

Sabemos que la dama come a 
todas la figuras que están en su 
fila, a las que están en su colum¬ 
na y a la que están en la diago¬ 
nal. ¿Somos capaces de poner 8 
damas en un tablero y que ningu¬ 
na se coma a otra? Si pensáis 
que es imposible, hacer un pro¬ 
grama de ordenador que lo re¬ 
suelva. No es muy difícil..., siem¬ 
pre que apliquéis la recursividad. 

Alejandro de Mora-Losana 
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LE OFRECE LOS MEJORES LIBROS 
PARA SU ORDENADOR 




P.V.P. 750 PTAS. 

(IVA INCLUIDO) 

Descubre los misterios de la 
programación de una forma 
sencilla, con ejemplos, 
programas y organigramas. 
(110 páginas, tamaño 13,5x21) 


P.V.P. 750 PTAS. 

(IVA INCLUIDO) 

Un libro especialmente 
dedicado a los que se inician 
por vez primera en el mundo 
del Spectrum. 

(100 páginas, tamaño 13,5x21). 


P.V.P. 900 PTAS. 

(IVA INCLUIDO) 

Un compendio de los 
programas más diversos con 
los que podrá aprender 
jugando las importantnes 
características del BASIC. 
(258 páginas, tamaño 
15,5 x 21,5). 



LOS MEJORES 
PROGRAMAS 


para el 





P.V.P. 800 PTAS. 

(IVA INCLUIDO) 

Con utilidades, juegos 
exploxivos y gráficos 
dinámicos que lleva al BASIC 
hasta el mejor 
aprovechamiento de sus 
posibilidades. 

(200 páginas, tamaño 
15,5x21,5). 


P.V.P. 800 PTAS. 

(IVA INCLUIDO) 

Una inestimable ayuda que 
complementará la que 
proporciona el manual del 
ordenador. 

(108 páginas tamaño 
13,5 x 21,5). 


P.V.P. 800 PTAS. 

(IVA INCLUIDO) 

Muestra una visión más 
completa del correcto 
funcionamiento del juego de 
instrucciones del C-64. 

(108 páginas, tamaño 
13,5x21,5). . 


CUPON 
DE PEDIDO 

enviara: 


C/BRAVO MURILLO, 377 
28020 MADRID 



COPIE O RECORTE ESTE BOLETIN DE PEDIDO.i 

DESEO RECIBIR LOS SIGUIENTES TITULOS: 

15 HORAS CON EL SPECTRUM (P.V.P. 750) □ 

LOS MEJORES PROGRAMAS PARA EL ZX SPECTRUM (P.V.P. 900) □ 

LOS MEJORES PROGRAMAS PARA EL COMMODORE 64 (P.V.P. 800) □ 

EL 64 MAS ALLA DEL MANUAL I (P.V.P. 800) □ 

EL 64 MAS ALLA DEL MANUAL II (P.V.P. 800) □ 

(más 100 ptas. de gastos de envío). 

El importe lo abonaré POR CHEQUE □ CONTRA REEMBOLSO □ CON MI TARJETA 
DE CREDITO □ American Express □ Visa □ Interbank □ 

Número de mi tarjeta: 




un 


NOMBRE _ 

CALLE_ 

CIUDAD_ 

PROVINCIA . 


. C. P. . 

















































































Código máquina 

P: Les agradezco que publica¬ 
sen mi primera carta, y espero 
que puedan responder a esta se¬ 
gunda. 

— ¿Cómo leer mediante código 
máquina, por ejemplo el bit n.° 4 
de la posición 56320, y guardar 
en el acumulador o en los regis¬ 
tros X o Y el contenido? 

— ¿Como poner a 0 o a 1 el bit 
n.° 4 de la 53271 cargando en el 
acumulador 0 o 1 LDA #$0? 

Cómo no tengo un ensamblador 
os agradecería que además de la 
explicación me diérais la datas 
para poder trabajar desde el BA¬ 
SIC. 


Josep Jover 
Valls d'Andorra 

R: Para leer el bit número 4 de la posi¬ 
ción 56320, lo primero que tienes que ha¬ 
cer es cargar el acumulador con esa di¬ 
rección 

LDA (56320) 

luego realizar una operación AND con el 
bit cuarto que equivale a 16 

AND# 16 

Si el resultado es cero, el bit era un 0 

Si no es así, el resultado será uno y por 
tanto el bit ero 1. 

Para meter el valor en un registro, por 
ejemplo el X, tienes que hacer una opera¬ 
ción de traspaso de acumulador a X, 

TAX 

y luego volver de la subrutina con la ins¬ 
trucción RTS. 

— A tu segunda pregunta, para poner 
a 0 o a 1 el bit número 4 de la 53271 y 
siguiendo los pasos de la respuesta ante¬ 
rior, deberás cargar el acumulador con 
esa dirección 

LDA (53271) 


Luego haciendo una operación AND con 
el valor 249 que equivale en binario 
(11101111) que no alteraría ningún valor 
excepto el del bit número 4. 

AND 249 

y luego almacenar el acumulador en me¬ 
moria con 

STA (53271) 
y volver con RTS. 

Para ponerlo a uno lo único que cambia 
es la operación lógica AND por un OR con 
el valor 16 que equivale (00010000), que 
sólo alteraría el valor del cuarto bit por un 
1 . 

El último problema que tienes es más di¬ 
fícil de solucionar, pues no sabemos clara¬ 
mente, tu intención con estas subrutinas, ni 
en qué dirección lo quieres guardar. Aun¬ 
que por las direcciones de memoria que 
mencionas es posible que quieras hacer 
una subrutina que controle el botón de dis¬ 
paro de un ¡oystick u otra que expanda los 
sprites en vertical u horizontal. 

Para otra vez debes de ser más ex¬ 
plícito. 


Fuente de alimentación 

P: Queridos amigos de Commo- 
dore Magazine, les mando la pre¬ 
sente carta para pedirles que me 
aclaren algunos de los problemas 

3 ue tengo con el port ael usuario 
el Commodore 64, ya que hasta 
ahora no me han sido resueltos 
mediante ninguna de sus publica¬ 
ciones. 

Verán, mi problema consiste en 

3 ue quiero conectar la impresora 
e una máquina calculadora. 

Los motores de la máquina fun¬ 
cionan con 5V, igual que la que 
da el port del usuario, por eso no 
hay problema. 

Pero no sé en qué patillas debo 
enchufar los motores. Y tampoco 
sé cómo ha de ser el programa 


para que les llegue la electricidad. 

A continuación les dibujo el 
montaje que yo he realizado. Y 

Q uisiera que si no está correcto me 
ibujaran uno de cómo debe ser 
para que funcione, y el programa 
que debe seguirlo para que fun¬ 
cione correctamente. 

Les ruego que publique la carta 
lo más pronto posible. Y en caso 
de irme bien, les mandaría fotos y 
más detalles del invento (chapu¬ 
za). 


Luis Miguel Serra 
Palma de Mallorca 

R: No te aconsejamos que intentes ali¬ 
mentar dos motores de 5 voltios con el 
Commodore, pues si superas los 100 m¡- 
liamperios es posible que quemes tu or¬ 
denador. 

De hacerlo tendrías que tener un control 
absoluto de la intensidad que tiene que so¬ 
portar. El único método es conectar con la 
segunda patilla en la parte superior y de¬ 
volver a masa en la primera patilla tam¬ 
bién de la parte superior. 

La corriente la da constantemente y tu 
único problema sería, que para cortarla 
tienes que instalar un interruptor o un relé 
programable desde tu Commodore como 
pudiste ver en la revista n.° 22 de Com¬ 
modore Magazine. 

De todas formas puede resultar más se¬ 
guro alimentar desde fuera los motores, 
por ejemplo, con una pila o un transforma¬ 
dor y controlar el apagado y encendido 
desde el Commodore. 

Si haces algún invento práctico puedes 
enviarnos un esquema explicándolo para 
publicarlo en la revista. 
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TARDAREMOS EN VER 
ALGO PARECIDO. 


En informática ya es difícil sorprender. 
Pues bien, Commodore lo ha conseguido 
con Amiga. 

Más que una nueva generación de orde¬ 
nadores, el Amiga de Commodore repre¬ 
senta un nuevo concepto. Un ordenador 
que ofrece una serie de posibilidades y 
abre unos caminos que hasta hoy eran im¬ 
pensables. 

Entre las novedades de este ordenador 
profesional destacan: la posibilidad de tra¬ 
bajar con un procesador de 32 bits y de 3 
coprocesadores específicos, actuando los 
4 al tiempo. 

Además, Amiga dispone de pantallas y 
ventanas configurables con una resolución 
de 640 x 400 puntos escogiendo entre 


una paleta de 4.096 colores. 

Trabaja con 4 canales independientes 
polifónicos con voz masculina y femenina, 
y por si fuera poco, Amiga de Commodore 
es el único ordenador multitarea que puede 
efectuar varios trabajos simultáneamente. 

El precio también es importante. Por 
330.000 ptas. ex. IVA, el Amiga incluye: 

- Unidad central con 768 K RAM. 

- Monitor de alta resolución en color y so¬ 
nido. 

- Unidad de discos de 880 K. 

- Teclado profesional y ratón. 

Por mucho que avance la investigación 
en el campo de los ordenadores, tardare¬ 
mos en ver algo parecido. 



commodore 


Imagina siempre lo mejor. 
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